AN  EXACT  TEST  FOR  THE  SEQUENTIAL  ANALYSIS 
OF  VARIANCE 


AES-7906 


1 




cr-d  ^C'  1 

\ tor  :«  *&**'*£. — 


ADMINISTRATIVE  AND  ENGINEERING  SYSTEMS  MONOGRAPH 


QJ/ 


'Ur' 


1M 


AES-7906 


- 


X j 1 - / J 


AN  EXACT  TEST 
FOR  THE 


SEQUENTIAL  ANALYSIS  OF  VARIANCE^ 


jl\ 


by 

Robert  W.  Miller 


Prepared  with  partial  support 
of  the  Office  of  Naval  Research 
Cont^?arctj  N00014-77-C-J3438 

Leo  A.  Aroian,  Project  Director 


/ 


j j ^August  1979 


★ 

This  monograph  contains  the  first  two  chapters 
of  the  doctoral  thesis  of  Robert  W.  Miller 


UNION  COLLEGE  AND  UNIVERSITY 
Institute  of  Administration  and  Management 
Schenectady,  New  York  12308 


/■ 


y 


TABLE  OF  CONTENTS 


SECTION 

1.0 

1.1 

1.2 

1.3 


CHAPTER  1 


PAGE 


INTRODUCTION  1-1 


ONE-WAY  FIXED  EFFECTS  ANALYSIS 
OF  VARIANCE 


SEQUENTIAL  ONE-WAY  FIXED  EFFECTS  1-6 

ANALYSIS  OF  VARIANCE 


CONCLUSION 


1-16 


Codes 

Avail  and/or 


Dist 


special 


TABLE  OF  CONTENTS 


CHAPTER  2 

SECTION  PAGE 

2.0  INTRODUCTION  2-1 

2.1  THE  DIRECT  METHOD  OF  SEQUENTIAL  ANALYSIS  2-5 

2.2  APPLICATION  OF  THE  DIRECT  METHOD  TO  SANOVA  2-9 

2.3  DERIVATION  FOR  THE  CASE  k=2  2-16 

2.4  OBTAINING  THE  PROBABILITIES  OF  ACCEPTANCE,  2-83 
REJECTION,  AND  CONTINUATION 

2.5  SUMMARY  OF  THE  DIRECT  METHOD  FOR  A 2-86 

k=2  SANOVA  TEST 

2.6  NUMERICAL  METHODS  2-106 

2.7  CONCLUSIONS  2-122 

REFERENCES  R-l 

APPENDIX  A A-l 

APPENDIX  B B-l 

APPENDIX  C C-l 


CHAPTER  1 


SEQUENTIAL  FIXED  EFFECTS 
ONE-WAY  ANALYSIS 
OF  VARIANCE 

1.0  INTRODUCTION 

This  first  chapter  of  the  thesis  will  consider 
both  the  fixed  and  sequential  analysis  of  variance 
tests.  For  the  fixed  sample  test  the  discussions  consist 
of  the  statistical  model,  the  optimum  properties  of  the 
test,  and  the  operating  characteristic  (OC)  function. 
Each  of  these  concepts  is  important  for  the  consideration 
of  the  sequential  analysis  of  variance  test. 

The  sequential  analysis  of  variance  test  (termed 
SANOVA)  is  first  discussed  from  a historical  perspective. 
Further  discussions  consist  of  the  experimental  procedure, 
the  test  statistic,  and  the  test  statistic  decision  rule 
or  regions.  The  OC  and  average  sample  number  (ASN) 
functions  are  also  defined.  These  functions  are  extremely 
helpful  for  designing  SANOVA  tests. 
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1.1  ONE-WAY  FIXED  EFFECTS  ANALYSIS  OF  VARIANCE 

Analysis  of  variance,  a term  introduced  into  statis- 
tics by  R.A.  Fisher  (1918,  1925,  1935),  is  a statistical 
technique  for  analyzing  measurements  depending  upon 
several  kinds  of  effects  operating  simultaneously.  In 
general,  this  technique  consists  of  a body  of  tests  of 
hypotheses,  methods  of  estimation,  etc.,  using  statistics 
which  are  linear  combinations  of  sums  of  squares  of  linear 
functions  of  the  observed  measurements.  The  simplest  case 
in  which  analysis  of  variance  is  applied,  is  the  one-way 
classification,  in  which  the  observations  depend  upon  only 
one  factor. 

In  the  one-way  layout,  a population  is  stratified  into 
m subpopulations  according  to  some  characteristic  or  factor 
and  n^  independent  observations  are  taken  from  each  of  k 
of  the  m subpopulations  (i  = l,...,k).  Let  the  jth 
observation  from  population  i be  denoted  by  where 

i = l,...,k  and  j = l,...,n^.  Given  that  population  i 
has  mean  p + o^  and  standard  deviation  o^,  the  statistical 
model  employed  in  the  one-way  layout  is 

x.j  - u + o + ei;j  , i = I,***, k;  j = I,***, n. 
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with  the  parameters  satisfying  the  following 

condition 

n^S-^t.  . . •+n]c<5k  = 0 

The  parameter  6^  is  referred  to  as  the  differential 
effect  due  to  the  factor  at  level  i. 

The  usual  hypothesis  of  interest  is  whether 
61  = &2  = . . = 6k  = 0,  which  is  equivalent  to  the  hypo- 
thesis of  the  equality  of  the  k means.  The  analysis  of 
the  effect  of  the  factor  depends  upon  whether  k < m or 
k = m.  Eisenhardt  (1947)  was  the  first  to  differentiate 
between  the  two  situations.  He  used  the  terms  Model  I or 
a fixed  effects  model  as  the  case  where  the  sample  con- 
sists of  all  groups  in  the  population,  i.e.,  k=  m,  and 
Model  II  or  a random  effects  model  as  the  case  where  the 
interest  is  in  the  population  from  which  the  sample  came, 
i.e.,  k <m.  This  thesis  will  be  concerned  with  only 
fixed-effects  one-way  analysis  of  variance. 

The  analysis  of  variance  technique  requires  several 


assumptions.  Specifically,  it  is  assumed  that  the 
observations  from  each  of  the  subpopulations  are  random 
variables  distributed  normally  with  mean  y + 6^  and  stan- 
dard deviation  o = for  all  i.  In  other  words,  the 
model  may  be  expressed  as 
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and 


x . . = y + 6 . +e.. 
ID  i ID 

j ^ N (y  + 6i,  a) 
j ^ N (0 , a) 


cov(xij'  x£m)  = °- 


l D 1 , • • • , n 


With  this  model  the  hypotheses 

Hq  = lJi  = M2  = vs.  H^:  not  all  means  equal 

can  be  tested  with  the  following  statistic 


cal 


l n. (x, -x)  / (k-1) 
i=l 


k n. 


I l <xij-xl 

i=l  j=l 


) V(N-k) 


where 


N 


Xi  = 


X = 


k 

l n- 

i-1  1 


1 v1 

n.  . Xij 
i 3 = 1 J 

k n. 

* Ji  & 


This  statistic  can  be  shown  (Kempthorne,  1952)  to  be  dis- 
tributed as  a noncentral  F variate  with  (k-1,  N-k)  degrees 
of  freedom  and  noncentrality  parameter  nx,  where 


^ k k 

X • £6i2ni  = X (Wi-W)2ni  with  y = -£-  [ Wi 


i=l 


i=l 


i=l 


ind  n = l n. 

j-1 
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The  density  function  of  a noncentral  F variate  with  v^,v2 
degrees  of  freedom  and  noncentrality  parameter  A is  given  by: 


f , (x) 

V1'V2'X 


e’**  *,^1  v^a  * ^r1 

B(!SVI,  ^V2)  (V2+V1X)'i^Vl+V2^ 


£ 

j=o 


4Av  x 


V2  + V1X 


r{’j(2j  + v1  + v2)) 


j ! r (*5v2)  r*s(2j  + vj 


(Johnson  and  Kotz,  1970).  (1.1.1) 

If  the  null  hypothesis  is  true,  the  distribution  of 

F , is  a central  F distribution  with  k-1,  N-k  degrees  of 
cal 

freedom.  Hence,  if  the  hypothesis  is  rejected  whenever 

F is  greater  than  the  100(l-a)%  point  of  this  distri- 

Cdl 

bution,  that  is 


Fcal  > Fk-l,N-k, l-o 

then  the  significance  level  of  the  test  will  be  a. 

The  operating  characteristic  curve  of  the  test, 
is,  the  probability  of  accepting  HQ  is  given  by 

PrlFcal  - Fk-l,N-k, l-o)‘  Since  FCal  % Fk-l,N-k,n^ 
OC  of  the  test  is  characterized  by  the  parameter  £ = 


0C 


(A)  Pr{Fk-l,N-k,£  - Fk-l,N-k, l-o) 


that 


the 

nA,  i.e. 


Several  sets  of  tables  and  curves  have  been  prepared 
from  which  the  OC  curve  for  selected  tests  can  be  obtained 
(Tang  1938,  Pearson  and  Hartley  1951,  Lehmer  1944,  Fox 
1956,  Fix  1949).  Most  of  these  tables  are  entered  with  a 
different  parameter  than  £ . Appendix  A contains  a 


1 
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computer  program  which  will  calculate  the  OC  curve  (as  a 
function  of  X)  for  any  given  test. 

Originally  ANOVA  was  derived  from  a distributional 
point  of  view,  but  the  F-test  has  been  found  to  possess 
several  optimum  properties.  Hsu  (1941)  showed  that  the 
F-test  is  UMP  amongst  all  tests  of  size  a whose  power 
depends  upon  A,  and  Wald  (1942a)  proved  that  the  F-test  is 
best  when  one  is  interested  uniformly  in  all  alternatives, 
as  expressed  by  uniform  weighting  on  spheres.  As  far  as 
ANOVA  is  concerned  it  is  immaterial  whether  the  value  of 
A is  built  up  by  a number  of  small  contributions  or  a 
single  large  one.  Situations  where  instead  the  main  empha- 
sis is  on  detection  of  large  deviations  should  not  use 
ANOVA  since  the  test  is  no  longer  optimum  in  these  cases. 

1.2  SEQUENTIAL  ONE-WAY  FIXED  EFFECTS  ANALYSIS  OF  VARIANCE 

Wald  (1947)  first  presented,  and  systematically 
studied,  the  sequential  test  of  a simple  hypothesis  against 
a simple  alternative.  Let  Hq  denote  the  hypothesis  that 
the  population  density  is  fQ  (x) , and  the  hypothesis  that 
it  is  f^(x).  Constants  A and  B are  chosen  (A  > B) , and 
after  each  observation  in  a sequence  the  corresponding 
likelihood  ratio  is  computed: 


A 

n 


fl(xl)-fl(x2)---fi(xn) 


f0(xl) 'f0 (X2) * * ‘f0 (xn) 


J 
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t 

The  procedure  is  then  as  follows:  reject  Hq  if  An  >_  A, 
accept  Hq  if  An  < B,  and  obtain  another  observation  if 

B < A < A.  A and  B are  chosen  so  as  to  make  the  prob- 

n 

abilities  of  Type-I  and  Type-II  errors  equal  to  a and  g 
respectively . 

Exact  values  of  A and  B are  difficult  to  obtain. 
However,  Wald  (1947)  proved  that  for  small  values  of  a and  g 

A 1 - g and  B ^ g 

a 1 - a 

Since  the  hypothesis  about  the  equality  of  K normal 
population  means  with  common  unknown  variance  is  a composite 
multiparameter  hypothesis  with  a nuisance  parameter,  Wald's 
theory  of  the  sequential  probability  ratio  test  cannot  be 
directly  applied.  To  deal  with  problems  such  as  these, 

Wald  introduced  the  method  of  weight  functions  which, 
through  the  notion  of  a prior  distribution  for  unknown 
parameters,  essentially  reduced  the  basic  problem  to  test 
hypotheses  in  one  parameter  families.  A difficulty  with 
this  procedure  is  the  choice  of  the  weight  function. 

Cox  (1952)  devised  a unified  method  under  which  sequential 
tests  can  be  obtained  for  composite  hypotheses.  The  basic 
idea  behind  Cox's  procedure  is  to  consider  a sequence 
formed  by  transforming  the  original  observations,  the 
transformation  chosen  so  that  the  new  sequence  depends 
upon  a single  parameter.  Although  the  distribution  of  the 
transformed  values  {Tn}  depends  upon  only  a single  para- 
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meter  0,  the  sequence  {Tn}  maY  not  be  independent.  Cox 
gave  conditions  under  '-'hich  the  following  factorization  is 
possible 

f (Tl,T2, • • • ,Tn)  = f(Tn|0)f (T2,-..,Tn) 

where  f (T2 » • • • /Tn)  does  not  depend  upon  0.  When  this 

factorization  is  possible  a sequential  test  can  be  developed 

to  make  a decision  about  this  single  parameter  0,  using 

only  the  transformed  values  It  }.  The  test  for  discrim- 

inating  between  the  hypotheses 

H : 0=0  vs.  H, : 0 = 0, 

0 o 11 

can  now  be  constructed  by  considering  the  following  ratio 


A 


t(TnlSl> 

£<T„IV 


Johnson  (1953)  applied  Cox's  method  to  the  following 

one-way  fixed  effects  analysis  of  variance  problem.  An 

experiment  is  carried  out  in  stages,  and  at  each  stage  a 

fixed  number  r.,  for  i = l,***,k,  of  observations  are 
r 

taken  from  each  group.  Denote  the  j th  observation  on  the 
ith  group  at  the  nth  stage  by  Xijn- 


Let 


and 


with 


— =2 

SSB  = n y r. (X.-X) 
n . *■.  l i 
i=l 


Li  n 


SSW  = 


-X;  ) 2 


n = l l l <Xijs-Xi 

n i=l  j=l  s=l  13S  1 

"i  r 

X . = — l l X . . 

1 nri  j=l  s-1  13 
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X 

N 


, k ni  r 

- y y y x. . 

N i=l  j = l s=l  13! 


k 

n y r . 

i=l 1 


and 

SSBn/ ( k— 1 ) 


SSWn/ (N-k) 


(1.2.1) 


The  distribution  of  the  sequence  {F^}  depends  only 
upon  the  noncentrality  parameter  X.  Applying  Cox's  theorem, 
a sequential  test  for  discriminating  between  the  hypotheses 

Hq : X = XQ  vs.  H1 : X = X1  , X±  > XQ  (1.2.2) 

for  a given  a and  g is  specified  by  the  decision  rule 

..  £(FJxi»  < 6 

Accept  Hn  it  _ 

£(F„|X0)  X-a 

f(Fn|A1)  1-6 

Reject  H if  

£(FJV 

otherwise  continue  to  the  next  stage.  (1.2.3) 

An  equivalent  test  was  derived  by  Hoel  (1955)  using 
Wald's  method  of  weight  functions.  The  weight  function 
Hoel  employed  was  a generalization  of  that  used  for  Wald's 
sequential  t-test. 
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The  same  sequential  test  (i.e.,  the  test  statistic  of 
(1.2.1)  and  decision  rule  (1.2.3)  of  the  hypotheses  (1.2.2) 
has  also  been  by  Hall,  Wijsman  and  Ghosh  (1965).  Their 
derivation  involved  applying  the  principal  of  invariance. 
They  showed  that  test  statistic  of  equation  (1.2.1)  is 
unchanged  by  any  of  the  following  transformations: 


(i) 


(ii) 


(iii) 


X' . . = CX.  . 


i]n  i^n 

X'.  . = X.  . 

lin  i]n 

an  orthogonal 


C > 0 

+ C 

transformation 


Also,  they  were  able  to  prove  that  the  sequential  test 

was  UMP  for  testing  the  hypotheses  A £ A vs. 

H-^:  A il  A^,  by  showing  that  the  density  f(F  |A)  possessed 

a monotone  likelihood  ratio  (Lehman  (1959)). 

In  addition,  they  proved  that  the  vector  of  statistics 

T = lx. , X„,  . . . , SSW  | was  a transitive  sufficient 

n 1 1 2 n J 

sequence.  This  finding  is  of  importance  in  later  chapters 
of  the  thesis. 

As  previously  explained,  the  sequential  test  is  carried 
out  in  stages,  where  at  each  stage  a fixed  number  r^,  for 
i = 1,  . . . , k,  of  observations  are  taken  from  each  group. 
Throughout  the  remainder  of  this  thesis  it  will  be  assumed 
that  at  the  first  stage  two  observations  from  each  group  will 
be  taken  (this  is  so  the  statistic  SSB^  will  not  be  zero  on 


j. 
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the  first  stage) . Each  subsequent  stage  will  result  in  one 
observation  from  each  group  being  taken  (i.e.,  r^  = 1 for 
all  i) . All  future  discussions  will  pertain  to  this  parti- 
cular testing  situation. 

As  in  the  fixed  sample  test,  the  density  of  the  statistic 

F . (F  I A)  , is  that  of  a noncentral  F variate  and  is  given 
nj  n 1 3 

in  equation  (1.1.1).  Therefore,  the  decision  rule  of  equa- 
tion (1.2.3)  requires  calculating  the  ratio  of  two  noncentral 
F densities.  For  specified  values  of  a,  8/  Aq  and  A^  the 
decision  rule  can  be  reexpressed  as: 


accept  H.  if  A 

0 n 

reject  H.  if  A 

On 

continue  otherwise 


_6  _ 

1-u 

1-8 

a 


where 


A = R (F  ) 
n 


e~I(ArV  M 

N-l  K-l  X0(K  1)Fn 

2 ' 2 ' 2 (K  (n-l)  + (K-l)Fn) 

N-l  K-l  Al(K-1)Fn 

M 

2 ' 2 ' 2 [K  (n-l)  + (K-l)Fn) 

and  M(x,y,u),  known  as  the  confluent  hypergeometric  function 
is  defined  as 

00 

Er(y)  r(x+t)  ufc 

— 

t=o  r(x)  r (y+t)  ti 


Since  the  above  decision  rule  is  a function  of  the 
statistic,  F^,  the  equations  may  be  solved  to  obtain  a 
decision  rule  in  terms  of  that  statistic.  That  is,  two 
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. A 

critical  values  of  the  statistic  may  be  found;  and 

F R such  that  r(f  A)  = 3/(l-ct)  and  RfF  R)  = ( 1- B)  / . 

When  these  critical  values  have  been  calculated  for  all 
A R 

stages,  F^  and  F^  , n = ; the  sequential 

test  can  then  be  conducted  by  comparing  the  statistic,  F^, 
of  equation  (1.2.1)  against  these  critical  values.  In 
summary,  at  every  stage  n the  following  decision  rule 
is  applied: 


accept  Hq 

if 

F 

n 

< 

F 

n 

reject 

if 

F 

n 

> 

F 

n 

continue 

if 

F A 
n 

< 

F 

n 

The  test  is  usually  performed  using  the  somewhat 
simpler  statistic 


SSB 

V = — 

n SSW 

n 


V 

n 


The  relationship  between  the  two  statistics 
is  simply 

(N-K) V 

n = F 


(K-l) 


F and 
n 


Conducting  the  test  with  the  statistic  requires  trans- 
forming the  critical  region  as  well  (e.g.,  = (K-l) F^ (N-K) ) . 

Tables  of  the  critical  values  have  been  prepared  for 
selected  values  of  a,  B,  K,  XQ  and  X^  by  Ray  (1956)  and 
B.K.  Ghosh,  et  al.  (1967).  However,  these  tables  are  in  terms 
of  the  test  statistic  Gn  = Vn/K.  Appendix  B of  this  thesis 
contains  a computer  program  which  calculates  the  critical  values 
of  ; VnA  and  R,  for  specified  values  of  a,  B,  K,  X^,  and  X. 
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As  with  all  statistical  tests,  one  important 
property  of  the  test  described  above  is  the  Operating 
Characteristic  Curve.  The  OC  curve  for  the  above  test 
is  strictly  a function  of  X,  and  is  given  by 

OC  ( A ) = Pr  {accepting  HQ:  X = XQ  if  X = X } 

Wald  developed  an  approximation  for  the  OC  curve 
of  a sequential  probability  ratio  test  of  ffX.O^) 
against  f(X,0^)  provided  the  equation 

Eq { [f  (x.e^/f  (x,g0)  ]h}  = i 

has  a nonzero  solution  h = h(0),  and  the  {X^}  are  i.i.d. 
However,  since  the  above  test  is  conducted  on  the  trans- 
formed sequence  {V^}  which  are  not  independent,  Wald's 
approximation  is  not  valid.  Bhate  (1955)  developed  a 
conjectural  formula,  similar  to  Wald's  approximation  for 
the  OC  curve,  when  the  {x^}  are  not  independent. 

Ghosh  (1970)  suggests  that  substituting  the  sequence  {V^} 
into  Bhate 's  formula  may  yield  a useful  approximation  to 
the  OC  curve.  The  result  of  this  substitution  yields  the 
following  approximation  to  the  OC  curve. 


If  h^(X)  is  a nonzero  solution  of  the  equation 


h. 


£i  (Vi  lVl'  * ’ ' >Vi-l;Al)  1 dF(Vi|V1,...,Vi_1,*X)  = 1 

fi(vilV"'vi-i;V 
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and  h ^ ( A ) ~ h(A)  for  all  i > 1,  that  is  h^(A)  varies 
very  little  with  i for  a given  A,  then 


Ah (A)  . 

e -l 

OC  ( A ) 

Ah ( A ) Bh ( A ) 
e -e 


Where 


A % In  ! - B Hn 

a 1-a 


The  crucial  point  in  the  use  of  the  conjecture  lies 
in  the  verification  of  h^(G)  % h(0)  for  various  values 
of  i.  Also  it  must  be  noted  that  this  approximation  is 
only  valid  for  infinite  Wald  regions. 

The  only  other  alternative,  to  date,  for  obtaining 
the  OC  curve  for  this  type  of  test  is  to  employ  Monte 
Carlo  techniques. 

Also  of  interest  in  a sequential  test  is  the  Average 
Sample  Number  function.  For  the  above  test  the  ASN  function 
will  be  defined  as: 

* ... 

ASN (A  ) = Expected  number  of  stages  until  a decision 

* 

is  reached  if  A = A . 

As  with  the  OC  curve,  Wald's  approximation  to  the  ASN, 
is  not  valid  due  to  the  dependence  of  the  {V^}  sequence. 

No  general  formula  (exact  or  approximate)  for  the  ASN  for 
composite  hypotheses  exists,  but  Bhate  (1955)  has  developed 
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I 
I 

■ a conjectural  formula  along  the  same  lines  as  that  for 

1 the  OC  curve.  Ray  (1956)  has  applied  Bhate's  conjectural 

j;  formula  to  the  one-way  fixed  effect  analysis  of  variance 

test,  and  obtained  expressions  for  A = Aq,A^.  Again, 

‘ as  with  the  OC  curve  this  procedure  is  valid  only  for 

open  Wald  regions. 

Since  the  regions  are  open,  it  is  possible  to 
progress  through  a large  number  of  stages  before  a 
decision  is  reached.  The  number  of  stages  will  always 
be  finite,  however  (Johnson,  1953) . One  way  of  assuming 
termination  within  a reasonable  amount  of  time  is  to 
truncate  the  test.  Truncation  involves  altering  the 
Wald  regions  so  that  by  some  stage  m^  a decision  can  be 
made . 

This  thesis  will  be  concerned  with  developing 
j procedures  to  obtain  the  ASN  function  and  OC  curve  for 

a SANOVA  test  with  any  given  set  of  truncated  regions, 
i The  following  chapter  contains  a derivation  of  SANOVA 

for  the  case  k = 2 by  the  Direct  Method  of  Sequential 
Analysis  (Aroian,  1968) . 

j 

f 

1 

m 

I 

I 

| 


1.3  CONCLUSION 


This  chapter  has  served  to  introduce  the  SANOVA 
test.  This  thesis  will  pertain  to  obtaining  the  OC 
and  ASN  functions  of  such  a test.  Currently,  only 
approximations  exist,  such  as  that  of  Dhate  (1959), 
considered  in  this  chapter.  The  next  chapter  will 
derive  the  first  exact  procedure  for  obtaining  the 
OC  and  ASN  of  a k=2  SANOVA  test. 


m 

t 
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2.0  INTRODUCTION 

The  major  advantage  to  performing  an  analysis  of 
variance  sequentially  is  the  possible  reduction  in  sample 
size  over  that  required  for  the  fixed  sample  test.  Since 
the  sample  size  is  not  predetermined  in  a SANOVA  test, 
the  experimenter  would  like  to  be  assured  that  the  sequen- 
tial test  can  offer  an  equally  discriminating  test  with 
smaller  sample  size  than  the  corresponding  fixed  sample 
test.  As  previously  discussed,  such  assurance  can  be 
obtained  by  examining  the  OC  and  ASN  curves  of  the 
sequential  test. 

In  this  chapter  an  exact  procedure  is  developed  for 
obtaining  the  OC  and  ASN  curves  of  a SANOVA  test. 

This  procedure  is  the  first  which  yields  exact  results 
and  is  versatile  enough  so  as  to  be  used  for  tests  with 
general  regions.  It  is  hoped  that  the  procedure  will  be 
an  invaluable  tool  for  designing  SANOVA  tests. 

In  a SANOVA  test  the  decision  of  acceptance  can  be 
made  at  any  stage  i,  i = 2,  . . . , m^ . Thus,  the  pro- 
bability of  accepting  the  null  hypothesis  must  be  calcula- 
ted as  the  sum  of  the  probabilities  of  accepting  at  each 

4 m0 

state,  ; i.e.  OC  = £ PA  ' course'  these 

probabilities  will  depend  upon  the  state  of  nature  A. 
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Unlike  the  fixed  sample  test,  these  probabilities 
cannot  be  obtained  by  simply  integrating  the  distribution 
of  the  test  statistic.  One  must  remember  that  in  sequen- 
tial analysis  the  statistic  at  stage  i only  exists  when 
the  statistics  at  all  previous  stages  have  had  values 
within  the  continuation  region,  i.e.,  < F ^ < FR^  , 

j = 2 , . . . , i - 1.  Thus,  the  distribution  of  the 

test  statistic  at  stage  i is  not  a true  probability 
distribution  since  its  total  probability  content  is  not 
1 (rather  . Were  this  distribution  known  it 

could  be  integrated  to  obtain  P 1.  Unfortunately  this 
distribution  cannot  be  obtained  analytically. 

However,  the  procedure  developed  in  this  chapter 
obtains  a "truncated"  density  at  stage  i-1.  Rather  than 
utilizing  the  density  of  the  test  statistic  F^,  this 
procedure  utilizes  the  joint  density  of  the  sufficient 
statistics  at  stage  i (i.e.  each  of  the  K sample  means 
and  the  pooled  estimate  of  the  variance) . From  this  joint 
density  the  density  of  F^  can  be  obtained  which  then  can 
be  integrated  to  yield  P^  . 

The  joint  density  at  stage  i is  obtained  from  the 
joint  density  at  stage  i-1  by  applying  Aroian's  direct 
method  of  sequential  analysis.  This  consists  of  determin- 
ing the  mapping  of  points  at  stage  i-1  to  those  at 
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stage  i (where  a point  represents  a value  of  the  vector 
of  sufficient  statistics) . This  mapping  describes  how 
the  statistics  at  stage  i-1  are  changed  by  tne  new 
observations  to  yield  statistics  at  stage  i.  Thus  for 
any  given  point,  A,  at  stage  i,  there  is  a region  of 
points,  P,  at  stage  i-1  which  can  be  mapped  into  it. 

Due  to  the  nature  of  a sequential  test,  some  points 
in  P may  result  in  a decision  being  made  at  stage  i-1. 
If  so,  the  point  can  not  be  mapped  into  A,  since  the 
test  would  terminate  at  stage  i-1.  Thus,  for  a sequen- 
tial test  the  region  of  points,  II,  which  can  be  mapped 
into  A must  include  only  those  points  in  P which  lie 
in  the  continuation  region  at  stage  i-1.  Ultimately, 
this  restriction  will  yield  the  desired  "truncated" 
density  for  stage  i (i.e.,  the  total  probability  content 
is  p/"1). 

As  previously  mentioned  the  statistics  at  stage  i 
are  transformations  of  the  statistics  at  stage  i-1  and 
the  new  observations  taken  at  stage  i.  Suppose  that  the 
required  number  of  sufficient  statistics  is  n,  and  that 
the  number  of  new  observations  taken  at  any  stage  is  K 
(assuming  one  observation  from  each  population  would  imply 
a test  for  the  equality  of  K means) . The  above  trans- 
formation would  then  be  a transformation  of  n + k random 
variables  (the  statistics  at  stage  i and  the  K new 
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observations)  to  n random  variables  (the  statistics  at 
stage  i) . Since  the  dimensionality  of  the  two  sets  of 
random  variablesis  not  the  same,  K surplus  random 
variables  must  be  introduced.  These  K surplus  variables 
will  be  judiciously  selected  functions  of  the  statistics 
at  stage  i-1  and  new  observations.  This  introduction 
of  surplus  random  variables  makes  the  transformation  from 
an  n + K dimensional  space  (the  statistics  at  stage 
i-1  and  K new  observations)  to  an  n+K  dimensional 
space  (the  statistics  at  stage  i and  K surplus  vari- 
ables) . The  joint  density  of  the  statistics  at  stage  i 
and  K surplus  variablescan  be  found  by  calculus.  The 
procedure  is  essentially  equivalent  to  transforming  vari- 
ables in  multiple  integrals. 

Finally,  the  desired  density  (of  the  joint  distribu- 
tion of  the  statistics  at  stage  i)  is  obtained  by  per- 
forming a multiple  integration  of  the  joint  density  of 
the  statistics  at  stage  i and  K surplus  variables. 

The  region  of  integration  will  be  over  all  points  con- 
tained in  the  set  of  points  H. 

The  above  discussion  has  given  a brref  outline  of 
the  "exact"  procedure  developed  in  this  chapter  of  the 
thesis.  The  following  sections  describe  the  procedure 
in  greater  detail. 
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2.1  THE  DIRECT  METHOD  OF  SEQUENTIAL  ANALYSIS 

Aroian  developed  a general  theory  for  obtaining  the 

properties  of  a sequential  test  exactly  (Aroian,  1968). 

To  determine  the  properties  (usually  only  the  OC 

curve)  for  a fixed  sample  test  one  needs  to  know  the 

distribution  of  the  test  statistic  for  a given  sample 

size  n for  different  values  of  the  parameter  being  tested. 

For  example,  in  the  fixed  sample  analysis  of  variance 

test  where  n observations  are  taken  from  each  of  k groups, 

the  test  statistic 
k 


F 


ca  1 


y (X.-X) 2/(k-l) 
i=l  1 


i=l  i-l 


is  distributed  as  a noncontrol  F variate  with  [k-l,N-k] 
degrees  of  freedom  and  noncentrality  parameter  ^ = r.A. 
The  OC  curve  for  a given  value  of  the  parameter,  £ , is 
then  obtained  by  integrating  this  distribution  over  the 
acceptance  region.  For  fixed  sample  ANOVA 


OC 


:(n  = / f.  . „ . jf  . ) dF  . 

’ J k-l,N-k,^  cal  cal 

Acceptance  region 


where  f c (X)  is  the  nonccntral  F density  function. 

V1'V2'* 
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The  direct  method  recognizes  as  its  primary  principle 
that  observations  are  taken  in  stages  in  sequential  test- 
ing, and  that  for  this  reason  a way  must  be  found  to 

calculate  the  distribution  of  the  test  statistic  T , at 

n 

stage  n.  In  most  cases  is  not  independent  of 

T1 ,T2 ' " * * ' Tn- 1 ' SO  that  the  mar9inal  distribution  of  Tn 

must  be  obtained  by  integrating  the  joint  distribution,  i.e., 


h (T  ) 
n n 


= /•••/ 


Ih(Tl,T2, 


,T 


.l>dTl+T2 


■dT 


n-1 


Since  a sequential  test  is  terminated  whenever  any  T < T 
^ m — m 

or  T > T R;  it  is  not  possible  to  have  a value  of  T if 
m — m c n 

any  T.  < TA  or  T.  > T.R  i=2,***,n-l.  Therefore,  the 

l—i  l—i 

direct  method  considers  only  the  truncated  distribution 


f (T  ) , where 
n n 


fn(t)  = Pr{T2A  < T2  < T2R,  T3A  c T3  < T3R, 

T . < T R,T  =t} . 
n-1  n-1  n J 


• T , < 

n-1 


Mathematically  f is  not  a true  "density"  function  since 
ft  J 1,  but  will  still  be  referred  to  as  a density. 

VJhen  T^  is  dependent  upon  an  the  following  manner 

Tn  ’ + 92<X(r.l  > 

representing  the  new  observation  at  stage  n,  g^  and  g2 


with  X 


2-7 


arbitrary  functions,  f (T  ) can  be  obtained  from  f (T  -,)  • 

Dahadur  generalized  the  dependence  by  introducing  the  notion 

of  a transitive  sequence  of  statistics  (Bahadur,  1954). 

A transitive  sufficient  sequence  {Tn}  is  a sequence  such 

that  for  every  n > 1 the  conditional  distribution  of 

T^+^,  given  the  set  of  observations  up  to  stage  n,  is 

identical  to  the  conditional  distribution  of  T , . , given 

n+1 

T . So,  in  general,  whenever  T is  transitive  sufficient, 
n ' ' n 

f (T  ) can  be  obtained  from  f . (T  . ) . 
n n n-1  n-1 

Instead  of  obtaining  f (T  ) via  integration  of  a 

n n 

joint  distribution, the  direct  method  obtains  f (T  ) 

' n n 

directly  from  f . (T  . ) , due  to  the  transitivity  of  T . 

n-f  n-i  n 

At  each  stage  n,  the  direct  method  calculates  the 
probability  of  accepting  H^,  Pftn,  and  the  probability  of 
rejecting  , PRn,  by  integrating  fn(Tn)  over  the 
appropriate  regions.  In  mathematical  terms, 


/ 


f (T  ) dT 
n n n 


T 


n 


f 

n 


(T  )dT  . 
n n 


T > T 
n — n 

These  probabilities  depend  upon  the  state  of  nature  0, 
since  the  distribution  of  depends  upon  the  parameter  0. 
So  for  any  given  0,  the  OC  and  ASN  curves  may  be  calculated 


■A. 


X 


as: 
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mo 

OC  ( 0)  = l P 1 
i = 2 

mQ  m . 

ASN(O)  = l i (P  1 + P*)  = 1 + l Pr 

i = 2 A R i=l  C 

where  mQ  is  the  truncation  point  of  the  sequential  test. 

Usually  the  density  f (T  ) cannot  be  obtained  from 

n n 

f i (Tr_ i ) analytically,  so  that  the  procedure  must  be 
performed  numerically.  In  numerical  terms  f (T  ) repre- 
sents a "grid"  of  T values  calculated  for  each  n from 

n 

a "grid"  of  T , values, 
n- 1 

The  direct  method  has  been  used  in  a variety  of 
applications,  including  tests  for  the  mean  of  a normal 
distribution  with  the  standard  deviation  known  (Aroian 
and  Robison,  1969)  and  unknown  (Schmee,  1974),  and  tests 
of  the  standard  deviation  of  a normal  distribution  with 
mean  known  and  unknown  (Aroian,  Gorge,  Goss  and  Robison, 
1975)  . 

The  following  section  contains  a discussion  of  the 
application  of  the  direct  method  to  SANOVA. 
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2.2  APPLICATION  OF  THE  DIRECT  METHOD  TO  SANOVA 


SANOVA  is  based  on  the  statistic 


% - " J,  (5i<n)  -*(„)>  ' Jx  I,  'Xij-Xi(n,>  ‘ 

In  order  to  solve  this  problem  by  the  direct  method  a 
transitive,  sufficient  sequence  {Tnl  must  be  used. 
The  sequence  {vnl  is  not  transitive,  so  one  must  use 
the  multidimensional  transitive  sequence 

= ^Xl(n)  ,X2(n)  ' ' ‘ ' ,Xk(n)  's2(n)  ^ 


where 


X 


i i 

. . . = y x . . 

i(n)  ID 


and 


->2  - l l b - ^]: 


(Hall,  Wijsman,  Ghosh,  1965).  Similarly,  one  must  now 


work  with  the  joint  distribution  (n) ,X2 (n) ' * *Xk (n) 

S,  . 2) . From  this  distribution  P n and  P n can  be  obtained 
(n)  A R 

by  a k+1  dimensional  integration. 


P ” ’ ///s---/fn(Xl(n)-X2(n)'---'s2(n)>dXl(n)"-Js2(n) 


where  A is  the  region  in  k+1  space  such  that 


V = y I x -\hl*£ 

n Jit  i(n)  , 


— /S2(n)  < VnL 


,Rn  = fn(x1(n),---,xk(n),s2(n))dx1(n)...ds2(n) 


where  R is  the  region  such  that  V > V u. 

n - n 

The  problem  lies  in  obtaining  f (T  ) . If  the  first 

n n 

stage  at  which  a decision  can  be  made  is  n1  > 2,  then 


SinCS  Xl(n1)'X2(n1)'"*'Xk(n1)'  and  ^ 


are  all 


independent 


• n (T  ) = f (X  , X 

ri « n«  1 . > 2 

ll  1 (m) 


(ni)  (n]_) 


• • ' \ . ' stn.)  ) 


Xl(n1)‘nlyll  rx2(n1)_nly2 


Xk(ni)-nly2 


of  2,  . (s'  , .) 

X kfn^-l)  [ (n^)' 


where 


♦ <x>  - _L  e-^2 

/ 2 TT 


is  the  standard  normal  density  function  and 


r 

I 
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Xv/2-le-X/2 

fx2  (X)  = 

V 2v/2T(v/2) 


, X > 0 


2 

is  the  X density  function  with  v degrees  of  freedom. 
Since  the  power  of  the  SANOVA  test  depends  only  upon  A, 
the  density  f^fT^)  for  given  A can  be  calculated 
by  assuming  = •••  = p^,  a = 1 and 


= 


. ...  nl  nl 

The  probabilities  P and  P need  not  be  obtained  by 

integration  of  f (T  ) since  the  distribution  of  V is 
nl  nl  nl 

known  to  be  related  to  the  noncentral  F-distr ibution ; 


k (n. -1)„  , * 

V * Fk-l,k(n.-l) (nlX  ) ‘ Therefore 

(k-1)  1 1 


,, 

J 0 


k ( n 2 — 1 ) v A 

(k-1)  nl 


"k-1 , k (n j-1) , n , A * dX 


- 


/ 


(n.-l)V 

^ 

(k-1) 


:k-l,k(n[-\)  , n: a' 


These  integrals  are  evaluated  by  the  methods  discussed  in 
Appendix  A. 


r 
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V 


I 

: 


L 


To  determine  f , - (T  , the  direct  method  will  be 
n^+1  n^  + I 

applied.  Since  {T  ] is  transitive, f ^ , (T  can  be 

1 n ' n^+ 1 n^+ 1 

obtained  directly  from  f (T  ) . Suppose  the  following 

nl  nl 

relationships  exist  between  the  elements  of  T , and  T ; 

n^j  + 1 n^ 


^l(n1+l)  gll^l(n1)  >+g21^(n1+l)  ) 

• • • 

• • • 

Xk(n;L+l)  = glk^Xk(n1)^+g2k^X(n1+l)^ 

2 2 

S (n^  + 1)  = glk+l  (n1)^+g2k+l^X(n1+l)^ 


where  g^^  and  g2^ , i=l, • • • ,k+l  are  arbitrary  functions, 

and  X.  ..  is  the  vector  of  new  observations  from 
(n1+l) 

stage  n.+l.  The  statistic  T defines  a transformation 

1 n^  + 1 

which  maps  points  in  the  2k+l  dimensional  space  of  T ,X, 

nl  (nj+l) 


to  the  K+l  dimensional  space  of  Tn  +1.  To  make 

transformation  from  a 2k+l  space  to  a 2k+l  space, 
following  additional  variables  will  be  defined 


the 

the 


^Mnj  + l)  " 9 2 k+2^X(n1+l)^ 
Ek(n1+i)  = 92  2k+l  ^X  (n1+l)  ^ 
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where  the  functions  i=k+2  , • • • , 2k+l  are  arbitrary 

functions.  Since  the  transformation  is  now  2k+l  to  2k+l, 

the  joint  distribution  of  X,  . can  be 

J 1 (n^l)  k (n1+l) 

obtained.  From  this  distribution  the  joint  marginal 

2 

distribution  of  X,  , , . ,*«*,S  , ...  will  be  obtained 

1 (n^+1)  (n^+1) 


by  integrating  out  {n^+1) , • • • ,ER { 1} - 


To  obtain  the 


joint  distribution  of  T and  E . . , one  must  first 

J n^+1  nl+1 

obtain  the  joint  distribution  of  T and  X.  , ...  Since 

ni  (n.+l) 

X.  L.  . is  independent  of  T , the  joint  distribution  is 
(n^l)  ^ n1 

simply  the  product  of  the  respective  densities;  i.e. 


9 ^Knjl  ' "■'s2(n1)  ' X (nj^+1)  ^ f rij  (X1  (rij)  ' ‘ ’ ’ ' (n1>  ) ' 

£(X(n,  + l)) 


Then  under  certain  conditions  (which  for  this  general 
discussion  will  be  assumed  to  be  true,  but  are  dependent 
upon  the  functions  g^.  and  g2^)  the  joint  distribution  of 

Tn1+1  and  En1+1  is  given  by 

f ^Tn1+l'En1  + l^  = g(Ul^Tn1'X(n1+l))  ' *“'u2k+l^'rn1,X(n1+l))) 
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where  u . (T  , X . 2k+l  is  the  set  of  inverse 

1 nl  ’ 

transformations  and  I J I is  the  Jacobian  for  the  transforma- 


tion. As  previously  mentioned  the  density  of  f (T  ,) 

n^+1 

can  now  be  obtained  as  follows 

f (T  ) = //*••/  f (T  ,E  . ) dE . . . . • • • dE  . 

nlV  nl+l7  * 1 K nl+1  ni+i;  Kn^+l)  k(n^+l) 


where  R represents  the  integration  region  in  k space. 


The  direct  method  restricts  the  set  of  points 

T »X.  . -ix  to  be  mapped  into  T , . , to  include  only  those 

nl  (n^+1)  n^+1 

This  entire  procedure 


points  for  which  V L < V < v U 

nl  nl  nl 


can  be  represented  diagramatically  as  shown  in  Figure  1. 


The  following  section  contains  a complete  derivation 

of  the  direct  method  procedure  to  obtain  f (T  ) from 

n n 

f . (T  n)  for  the  special  case  k=2.  i’his  discussion  will 
n-l  n- i 

specify  the  functions  9^^'92i,ui  anc^  derive  the  integration 

* 

region  R . 
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2.3  DERIVATION  FOR  THE  CASE  k = 2 

This  section  will  derive  a procedure  for  obtaining 
the  properties  of  a SANOVA  test  for  the  special  case  when 
k=2,  groups . 

The  hypotheses  of  interest  in  this'  case  become: 


U1  = 


vs . 


1* 


Ml  * 


The  invariant  SPRT  translates  the  above  hypotheses  into 
the  following 


V X - A0 


H1 : A > \1 


where 


A = 


202 


and  Aq  is  usually  chosen  to  be  zero. 


The  test  statistic  used  for  the  sequential  test  of 
the  above  hypotheses  becomes 


V = T /D 
n n n 


where 


n ni|1^Xi(n)"X(n)^  2 fXl (n) ~X2  (n)J 


and 


2 n 


D = l l fX.  .-X . . .)  2 . 
i=l  j = l ' 1J 
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To  conduct  such  a test  requires  the  specification  of  the 
following  quantities:  the  null  hypothesis,  X^ ; the 
alternative  hypothesis,  * ; and  a set  of  regions 
Va'l,Vr1,  i=l,  * * • , itIq  (m^  being  the  test  truncation  point). 
The  regions  may  be  any  type  (Wald  or  modified  Wald)  that 
specify:  accept  if  at  any  i,  < V^1  and  reject 

Hq  if  _>  VRX ; otherwise  continue  sampling.  The 

properties  of  such  a test  consist  of  the  OC  and  ASN 
curves  as  functions  of  X;  i.e.,  OC  (X),  and  ASN 

(X),  )0<x:  xr 

The  direct  method  involves  calculating  for  a given 

•k 

X , fn(Tn)  at  each  stage  n,  from  which  the  probabilities 

P.n  and  PnA  are  obtained.  Once  the  quantities  P 1,  P 1 , 

A R A R 

* 

i=l,***  nig  have  been  calculated,  the  points  OC  ( X ) and 
ASN ( X * ) may  be  obtained.  The  following  discussion  will 

pertain  to  obtaining  P 1 , P 1 and  thus  the  OC  and  ASN 

★ 

tor  a given  state  of  nature  X = X . Unfortunately,  the 

statistic  V is  not  transitive,  and  in  order  to  conserve 
n 

all  the  necessary  information,  one  must  resort  to  a transi- 
tive sufficient  sequence,  such  as  {T^}  = {W^Q^jR^}  where 


n 

w 

n 

I 

j = l 

% 

n 

Qn  " 

l 

j = l 

x^ 

n 

n 

R 

n 

l 

i=l 

l 

j = l 

2 
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The  reduction  from  T -*•  is  performed  at  each  stage 
in  the  following  manner 


W -Q 
n n 


fnR  -W  2-Q  2 
I n n n 


(2.3.1) 


The  direct  method  involves  calculating,  for  every  stage  n, 

the  joint  density  f (W  ,Q  ,R  ) . 

J 1 n n'wn'  n 

Suppose  the  first  stage  at  which  a decision  can  be 

made  is  n,  > 2.  The  density  of  f (W  ,Q  ,R  ) is  obtained 
1 — nl  nl  nl  nl 

as  follows: 


W = n.X 
ni  1 


Q = n.  y 

n^ 


R = D +nnX  +n.y 
n^^  n1  1 1J 


where 


X = X 


l(n1) 


Y = X 


k2(nx) 

2 n. 


y r (x.  -x. , . 

jil  iil  13  1(nl> 


Since  the  quantities  X,  Y,  D are  all  independent,  their 


joint  distribution  is  given  by; 
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f (X,Y,D) 


Since  this  procedure  is  being  used  to  find  the  properties 

★ 

of  the  test  when  A = A , and  the  test  is  invariant  with 
respect  to  A,  we  can  let  y^=  0,  a = 1,  and 

= / \ 


So  this  density  may  be  expressed  as 


f (X,y, 


Dn1)  X 2(^-1)  (Dn1)  ^l(n1)^’<l>  (^~*1  ^(n^  ) 


From  this  density  we  can  determine  the  joint  distribution 

of  W ,Q  ,R  The  set  of  inverse  transformations  is 

nl  nl  nl 

given  by 


nl  nl 


Y = — Q 

nl  nl 

D = R - - W 2 - - Q 2 
nl  nl  nl  nl  nl 


which  has  a Jacobian 


nl  nl 


— Q 

nl  nl 


2-2  0 


Since  this  transformation  is  one-to-one 


E (W  ,Q  ,R  ) = n[R  - — W 2--Lq  21 

ni  ni  ni  ni  [n*)  2(nr1)[  ni  ni  ni  ni  ni  J 


From  this  density,  F (W  ,Q  ,R  ) will  be  obtained, 

n2  n2  n2  n2 

where  n2  = n^  + 1. 

First  consider  the  following  functional  relationships 
between  the  statistics  at  stage  n^  and  stage  n2: 


W = W + X, 
n2  In 


Q = Q + X_ 

n2  nl  2n2 

R = R + X2,  + X2 

n2  nl  ln2  2n2 


(2.3.2) 


The  statistics  are  changed  from  stage  n^  to  stage  n2  by  two 

new  observations,  X^n  from  group  1 and  X2^  from  group  2. 

Since  X.  and  X are  independent  of  W , Q , R , the 
ln2  2n2  nl  nl  nl 

joint  distribution  of  X.  , X_  , W , Q , R is  simply 

ln2  2n2  nl  nl  n2 

£VVVVVV  “ VvvV'  >• 


Equations  (2.3.2)  represent  a transformation  from  the  5 

dimensional  space  of  W , Q , R , X.  , X„  to  the  3 

n^  n^  n^  in2  2n2 

dimensional  space  of  W , Q , R . A transformation  from 

n2  n2  n2 
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5 dimensional  space  to  5 dimensional  space  can  be  achieved 
by  introducing  the  surplus  variables  Z and  U,  yielding  the 
following  transformation,  T: 


W 

n2 

w + 
nl 

% 

= 

Qn  + 
nl 

X2n2 

R"2 

= 

R + 
nl 

X2,  + X2 

ln2 

z 

= 

xi 

ln2 

u 

= 

X_ 

2n2 

The 

set  of  inverse  transformations 

w 

nl 

= 

W 

n2 

z 

Qn 

ni 

= 

Qn  _ 
n2 

u 

R 

nl 

= 

R 

n2 

2 2 

z - u 

x>"2 

= 

Z 

X2n2 

= 

U 

This 

transformation  has 

a Jacobian 

form 

1 

0 

0 

0 

1 

0 

J 

= 

0 

0 

1 

0 

0 

0 

0 

0 

- 2 Z 

(2.3.3) 


2n. 


,“1  , 


(2.3.4) 


21 


22 


so  that 


|J 


lB22'B21I  °l  = I1 I lB??l 


22 


22 


1. 


Thus,  the  joint  distribution  of  W , Q , R , Z,  U 

n2  n2  n2 

is  given  by 


Z,  U) 


fP  fw  -Z,  Q -U,  R -Z2-U2,  Z,  u)  . 
nl  n2  n2  n2 

(2.3.5) 


The  marginal  joint  distribution  of  W , Q , R is  obtained 

n2  n2  n2 

by  integrating  (2.3.5)  with  respect  to  U and  Z over  the 
appropriate  regions.  Ordinarily  this  region  consists  of 
all  possible  values  of  U and  Z,  < U < -<*>  < Z < °°; 

so  that  the  marginal  is  obtained  by 


f (w 


R -Z2-U2,  Z,  u) dZdU 
n2 
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By  substitution  this  integration  becomes 


Since  the  chi-squared  density  function  is  only  defined 
for  positive  values,  the  integration  region  of  U and  Z 
must  be  chosen  so  that 


R -Z2-U2-  — (w  -Z)2 — (Q  -U]  2 > 0 

n2  nl  n2  nl  n2  ~ 

Therefore,  for  a given  value  of  U,  say  U*,  the  range  of 
allowable  Z values  is  given  by  the  following  roots. 


(2.3.6) . 

Let  the  smaller  root  (the  lower  limit  of  Z integration) 
be  denoted  Z^  and  the  larger  (the  upper  limit  of  Z)  by  Zy. 


2-2  4 


The  limits  of  the  U integration  are  given  by: 


U1 imi ts 


/ nl 

Wn22 

Qn22] 

1 nx+l 

n2 

nl!1 

n]  +1  * 

(2.3.7) 


Let  the  smaller  root  (the  lower  limit  of  U integration) 

be  denoted  by  U and  the  larger  by  U (the  upper  limit 
L U 

of  U)  . 


It  should  be  noted  that  equations  (2.3.6)  and  (2.3.7) 

2 2 
W Q 

n2  n2 

have  solutions  only  if  R - - >.  0. 

n2  n^+1  n 1 

If  this  is  not  the  case,  all  the  above  limits  can  be 


> 0. 


regarded  as  zero,  so  that  f (w  , Q , R ) = 0. 

n2  n2  n2 


For  all  points  R , W , Q , such  that 
2 2 n2  n2  n2 
n n* 

R - — — - >_  0,  the  joint  density  is  obtained  by  more 

n2  n^+1  n^+1 


nz 

U f p(w 
ni  ' n 


-Z  , Q -U , R -z2-u2,z,u)dzdu. 
2 n2  n2 


(2.3.8) 


f 
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The  result  of  this  integration  yields 


This  is  the  density  which  results  if  the  first  step 
at  which  a decision  can  be  made  is  n2  = ni  + ^ * 

However,  the  direct  method  restricts  the  set  of 

points  (W  , Q , R , X , X ) to  consist  of 

n j 2ri2  ^^2 

only  those  points  such  that  V A < V < V R . The  limits 

nl  nl  nl 

in  equation  (2.3.8)  do  not  consider  this  restriction. 

The  result  of  applying  this  restriction  involves  altering 
the  U and  Z limits  of  integration.  The  integration  region 
consists  of  all  point  U,Z  such  that: 
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2 2 1 
R - Z - LT 

2 n] 


- 0*  - -±-  (W  -z) 2 - — (Q  -U)^  > 0 

nl  n2  nl  n2  ~ 

[W  -Z-Q  +U  2 

n2,  . 22,  J < v 

2["l(Rn  -22-“2)-(«n  -z)2-(0„  -“)2_ 


< 


< V1 


From  these  constraints  integration  limits  UM,U  and  Z , Z 

U L U Li 

can  be  obtained,  such  that 


/U  r Z 

7 U f P(w  -Z,  Q -U,  R -U-Z  , Z,u)dZdU. 

J ni  nx  n2  n2 

UL  ZL 

Explicit  expressions  for  these  limits  can  be  best  derived 
geometrically. 

n n 

Let  V = V l and  V = V ] such  that  at  stage  n. 

A A R r 1 


Hn  is  accepted  if 


[ysP 

2 n R -W  2-Q  2] 

1 nl  nl  nl  J 


< V 
- A 


(2.3.9) 
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and  Hg  is  rejected  if 


[VQ"J 


2 f"n,  R -W  2-Q  2 

L 1 ni  ni  ni  J 


i VR  * 


(2.3.10] 


Solving  the  above  expressions,  when  the  equalities  are 
satisfied,  yields  the  following  two  surfaces: 

2 ^ 2 


D : R 
A n, 


(2V1)Wn1  ■t(2V1)°n1 


2n.  V 
1 A 


R_  = C W 2+c  Q 2-2P  W Q 
A a n^  A n1 


and 


B : R 
R n. 


(2V  +l)w  2+(2V  +l)Q  2-2W  Q 
v R ’ n^  v r ; n^  nl  nl 


2n,V 
1 R 


R_  = C W 2+C  O 2-2P  W Q 

R n^  R n^  R nj  n^ 


where 


2V  +1 
A 

2niVA 


and 


2nxVA 


with  similar  expressions  for  C and  P . 

R R 


The  surface  Bft  is  an  elliptic  paraboloid  since  the 
discriminant,  D 

D = 4P  2-4C  2 = 4 (l-  ( 2V.  + 1 ) 2) 


will  always  be  negative  for  V > 0. 

A 
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Similarly  the  surface  B is  an  elliptic  paraboloid,  usually 

R 

containing  the  surface  Bft.  All  points  lying  between  these 
two  surfaces  constitute  the  continuation  region,  C 


Next  consider  the  surface  induced  by  the  transformation  T, 

This  surface  contains  all  points  in  T space,  (W  ,Q  ,R  ) , 

nl  nl  nl  nl 

which  can  be  mapped  into  some  point  in  T^  space 


(W  = a,  Q = b,  R = c)  . 
2 n2  n2 

Since 


a = W + X, 
n^  In 


b = Q + 

n^  2n^ 


c = R + X. 

nl  lnl 


+ X 


2nn 


this  surface  is  given  by 


c = R + (a-W  ) 2 + (b-Q  ) 2:  P 
nl  nl  nl 

The  surface  P is  an  inverted  elliptic  paraboloid. 


The  intersection  of  the  continuation  region  C , with 

nl 

the  mapping  surface  P,  determines  the  integration  region  for 

equation  (2.3.8).  This  region  is  shown  in  Figure  2,  and 

depends  upon  the  point  (a,b,c)  as  well  as  the  regions 

V and  V . 

A R 


FIGURE  2 


I 

I 
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If  this  roqion  is  projector!  onto  the  W , Q axes  one 

nl  nl 

obtains  the  set  of  all  W , Q points  for  which 

nl  nl 

W , Q , R are  contained  on  both  the  continuation 
nl  nl  nl 

surface  and  the  mapping  surface.  Let  this  set  be 
denoted  by  H; 


H:  {w  , Q } s.t.  fw  , Q , R )«C  and  P. 

1 n-^  n1i  n1  n1'  n^ 

The  integration  region  for  U and  Z,  for  a given  point 

W = a,  Q = b,  R =c  will  consist  of  all  points 
n2  n2  n2 

U,  Z such  that  the  doublet  W=a-Z,Q=b-U  is 
contained  in  the  set  H.  Let  this  set  be  denoted  by  G, 


G:  {z,  U}  such  that  (a-Z,b-u)  « H. 


Since  there  is  a one-to-one  relationship  between  the 

sets  G and  H,  the  limits  U , U , Z , A can  be  found  by 

U L U L 1 

inspection  of  the  set  H. 


An  analytic  expression  for  H can  be  found  by 

projecting  B OP  and  B OP  onto  the  W , Q axes. 

A r n^  n-^ 

Since 

B ; R =CW2  + CQ2-2PWQ 
R n^  R n 2 R n^  r n 

P : R = C - (w  -a)  2 - (Q  -b)  2 

v ni  ‘ K ni  ; 


the  projection  of  B OP  onto  the  Q ,W  axes  is  obtained 

R n^  n^ 


i 


f 
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by  substitution,  yielding  the  curve  RF.: 


f C +1)  W 2 + fc  +l)  Q 2 - 2aW  - 2bQ  - 2P  W Q = c - a2  - b2 

>■  D ' n_  v P > n n n n n 


"n^  R n^  n^ 


Similarly  the  projection  of  B DP  onto  the  Q , W axes 

A nl  nl 

yields  the  curve  AE : 


( C + l)  W 2 + fc  +1)  Q 2 - 2aW  - 2bQ  - 2P  W Q = c - a2  - b2 
A ^ ^ "^1 


Both  RE  and  AE  are  equations  of  an  ellipse;  and  since 

2 2 

the  coefficients  of  W and  Q are  equal  the  axes  of 

nl  nl 

the  ellipse  are  rotated  45°.  Thus,  the  set  H consists 

of  all  points  which  are  inside  RE  and  outside  AE . 

Figure  3 shows  the  integration  region  for  a particular 

case.  Many  such  integration  regions  can  arise  depending 

upon  the  values  of  a,b,c,V  ,V  . However,  the  region  will 

A R 

★ 

always  be  one  of  the  following: 

I.  A point  not  possible  at  step  (n+1). 

This  consists  of  all  points  (W  , . , Q . , R , . ) such 

n+1  n+1  n+1 

2 2 
w +i  Q + 1 

that  R - — - — - — - —2 — - — < o,  which  means 
n+1  n+1  n+1  — 

f (W  . , , Q . , , R , n ] = 0.  All  future  discussions  about 

v n+i  n+1  n+1' 

integration  regions  will  pertain  to  all  points  possible  at 

step  (n+1) . 

★ 

For  examining  the  types  of  integration  regions  that  can  arise, 
the  following  less  cumbersome  notation  will  be  used:  n = n^. 
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/2 -1  ( a+b)  n 

2 ^ ! VR+nVR+ 1^ 

r /2~1(a-b)nV 

t.T  " R 

2 (n+1)  . 

nV  ) 

' R ' 

w - — — 

2 (V  +nV  +2 

R R J 

| 

I 


_ 2 ,2 
C-a  -b 


+ 


n(a+b)2  . "Va-b>2  | 

2 (n+1)  2(VR+nVR+l)  | 


Note  that  RE  will  only  be  defined  if  the  following  inequality 
is  satisfied 


n 2,2 
C-a  -b 


n (a+b)  2 . "VRU-b)2 

2 (n+1 ) 2 (V  +nV  +1) 

R R 


> o 


or 


C 


2 w 2 /US  2 

_a _b (a-b)  n 

n+1  n+1  2 (n+1) (V  +nV  +1)  u 

R R 


Whenever  this  inequality  is  not  satisfied,  B never  intersects 

R 

P.  This  means  that  none  of  the  points  that  can  be  mapped 
into  a,  b,  c lie  in  the  continuation  region,  resulting  in 
f ( a , b , c ) = 0 . 

RE  is  an  ellipse  with  center  at 
/2-1 ' ( a + b)  n 

q ' = 

2 ( n+ 1 ) 


W 


n 


+ ^2  1 (a-b) nV 
R 

2 (V  +nV  +1) 
R R 


■A. 


- 
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II.  Case  when  only  a decision  to  reject  is  possible 

at  stage  n. 

When  V is  a number  less  than  zero  it  is  not  possible 
A 

to  accept  Hg  at  stage  n,  since  the  left  hand  side  of 

equation  (2.3.9)  can  never  be  less  than  zero.  Assuming 

V <«>,  the  only  decision  that  can  be  made  at  stage  n,  is  the 
R 

decision  to  reject  . 

If  no  decision  could  be  made  at  stage  n,  V =°°  and 

R 

V^<0 , and  as  previously  discussed,  the  set  H consists 

of  all  W , Q inside  the  following  circle,  RE  : 

n n 00 

(W  — ^-)2  + (q  — ^)2  = 

^ n n+1'  'vn  n+1' 


This  is  the  set  of  all  W , Q coordinates  of  all  points 

n n 

W , Qn,  Rn  which  can  be  mapped  into  the  point  (Wn+^  = a' 
Qn+1  = b,  Rn+1  = c)  and  which  satisfy 


w 

n 

i i 

c 

a 

i 

2 

r 

2 

^ 2 3 

2 

nR 

- W 

- Q 

n 

n 

n 

1 

L 

J 

Once  the  W , Q limits  of  the  set  H are  obtained,  the 
n n 

U,  Z limits  are  obtained  by  the  following  relationship 
between  the  sets  H and  G 


U = b - Q 

n 

Z = a - W 

n 
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For  the  case  when  no  decision  can  be  made  at  stage  n,  these 

limits  become  those  given  by  equations  (2.3.6)  and  (2.3.7). 

Whenever  a decision  to  reject  HQ  at  stage  n is  possible, 

a set  of  points,  W*,Q*,R*,  in  W,Q,R  space  exist 
* n n n n n n r 

such  that 


V(Wn*'V'V)  ‘ 


W *-Q  * 
L n n J 

2 

2 TnR  *-W  *2-! 
n n 

2 *2 
n 

V 


< OO 


Since  these  points  are  not  included  in  the  set  H,  the  set  H 

now  consists  of  all  W , Q inside  the  following  ellipse,  RE: 

n n 


(C  +llW  2+ (C  +l)Q  2- 2aW  - 2bQ  -2PW  Q = c-a2-b2 
'■R-'n'-R-'n  n n Rnn 


To  compare  the  two  curves  RE^  and  RE  consider  the  following 
rotated  coordinate  system: 


The  curves  in  this  new  coordinate  system  become 


RE„ 


JT  n (a+b) 


Q. 


2 (n+  J ) 


/T  n (a-b) 


W 

n 


2 (n+1, 


2 

a 

n+1 


b2  | 
n+ 1 ( 


and 
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2 (a+b) n 

\ | 

VnVR+1\ 

2 (a-b) nV 

U7  -*  R 

2 (n+1)  . 

^ nV  / 

R 

rv  

2(VR+nVR+2L 

, n (a+b) 2 
2 (n+1) 


nVR(a-b)2  | 

2(VnVR+1)) 


Note  that  RE  will  only  be  defined  if  the  following  inequality 
is  satisfied 


C-a 


+ 


n (a+b) 2 
2 (n+1) 


+ 


nV  (a-b)2 
2 (V  + nV  +1  > 


0 


or 


C - 


n+1 


n+ 1 


(a-b)  n 


2 (n+1) (V  +nV  +1 
R R 


> 0 


Whenever  this  inequality  is  not  satisfied,  B never  intersects 

R 

P.  This  means  that  none  of  the  points  that  can  be  mapped 
into  a,  b,  c lie  in  the  continuation  region,  resulting 
in  f (a,b,c)  = 0. 

RE  is  an  ellipse  with  center  at 

/^(a+b) n 
2 (n+1) 

/T(a-b) nV 
£L_ 

2(VR+nVR+l) 
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and  minor  axis  along  the  W ' axis.  The  circle  RE 

n oo 

contains  the  ellipse  RE  . This  can  be  seen  by  substituting 
the  ellipse  end  points  into  the  equation  of  the  circle. 
Consider  first  the  end  points  given  by 

/?(a-b) nV 

W ' = ^ 

n 2 (V  +nV  +1) 

R R 1 

/?(a+b) n 

Q-'  ■ 

Substituting  these  points  into  RE^'  yields 


n / a b (a-b)  n x 

n+l  ' n+1  n+1  2(n+l) (V  +nV  +1' 


r (c  - 

b2 

(a-b) 2n 

n2 (a-b) 2 

1 

n+1  f n+1 

n+1 

2 (n+1)  (V  +nV  +1) 

2 

2 (n+1)  (V  +nV 

n ( 

,2  v2 

a b x 

= 

c 

n+1  r 

J, 

n+1  n+1' 

which  simplifies  to 


2 2 
nz (a-b) z 


2 (n+1)  * (V  +nV  +1) 

R R 


(V  +nV  +1) 
R R 


- 1 


Since  this  quantity  will  always  be  less  than  or  equal  to  zero, 

this  set  of  end  points  will  be  contained  in  RE  ". 

00 
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Next  consider  the  set  of  end  points  given  by 


/'Tu-b)  nV 


2(VR+nVR+1) 


/2’(a+b)  n 
2 (n+1) 


(V  +nV  +1 
R R 


fc  - 

a 

b^ 

(a-b)  n 

r 

n+ 1 

n+1 

2(n+l)  (V  +nV  +1) 

Substituting  this  into  yields  the  following  expression 

/ tt/_1_\2  \ T _ -1 


H(a-b)  

-G  - + /2~ (a-b)  /HG 

2 


(n+1)  (V  +nV  +1 
R R 


where 


V +nV  +1 
R R 


b2  (a-b) 2H 


n+1  n+1 


The  above  expression  may  be  rearranged  to  yield 


Jg  * + (a  — b)  i/r  £ 7 


(n+1)  (V  +nV  +1) 


Since  this  quantity  will  always  be  zero  or  negative,  this  set 
of  end  points  will  also  be  contained  in  RE  "* . 
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Since  a decision  to  reject  can  be  made 

at  stage  n,  the  integration  region  is  reduced  to 
the  set  of  all  points  contained  in  ellipse  RE, 
as  shown  in  Figure  3.  To  determine  the  U 
integration  limits  on  the  integral  (2.3.8)  first 
requires  finding  the  limits  of  RE. 

Letting  be  the  maximum  value  of  Qn  and 

Q the  minimum  value  of  Q on  this  ellipse,  the 
nL  " 

integration  limits  for  U are  given  by 


U 

U 


L 

U 


Explicit  expressions  for 
a,b,c,V  may  be  obtained 

H 


(2.3.11) 

Q and  Q for  given 
nu  nL 

by  noting  that  at  both 


points 


dW 

n 

= oo 

dQ 

n 

dW 

Therefore  an  expression  for  — must  be  found  and 

dQn 

examined  to  see  at  what  points  it  approaches  infinity. 
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Tho  derivative 


dQn  C +1 
n r 


dW 

n 

is  given  by 

dQ 

n 

r2  (a»Vn)  + 2b-2(c  41)  Qn- 

ItV1)2  * (v1)  ~J 

ia~fP»°n)2  A2*b2-C-2ban*  (yi)On2 

<CR+1)2  V (CR+1) 


In  order  for  this  derivative  to  approach  infinity  the 
denominator  must  be  equal  to  zero.  Equating  the  numerator 
to  zero  yields, 


(a+P  Q )2 
R n 

(cR+i)2 


a2+b2-C-2bQ 


-2bQn+(yi)on2y 

(cR"i)  / 


o 


and  solving  for  Q yields 

n 


Q 


n 


b fc  +l)  +aP 

1 ; R + J 

^(CR+l)+aPR-|2  + 

("a2- (c  +1)  (a2+b2-c) "] 

(CRbl)2-PR2  V 

Lp  2-  c +i  2 

R R 

L pr2-(c  + i)2  ‘ 

(2.3.12) 


The  larger  root  will  be 


and  the  smaller  will  be 


The  limits  and  depend  upon  the  value  of  Q . 

For  a given  value  Q"  = b - U';Q  < Q'  < Q the  limits  for 

n — — n 

L u 

wn  can  be  found  by  solving  the  equation  of  the  ellipse  RE, 


yielding 
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W 


(a+PRCT)  + /f(a+PRQ')2  a2+b2-c-2bQ^(CR+l)Q-2] 


(V1) 


(c  +1) 


C +1 

R 


(2.3.13) 


Letting  W be  the  smaller  root  and  W the  larger,  the 


Z integration  limits  become 


Z = a - W 
u n. 


(2.3.14) 


Z = a - W 
L n. 


In  summary,  whenever  V < 0 and  V < 00  the  integra- 

A R 

tion  limits  U , U for  a point  W„  = a , Q = b,  R = c, 

L u n n n 

can  be  obtained  from  equation  (2.3.11),  where  and 

L nu 

are  values  obtained  from  equation  (2.3.12).  The  limits 
ZL  and  Zy  depend  upon  the  value  of  U;  for  a given  value  U 
the  limits  are  obtained  from  equation  (2.3.14)  where 

L 

and  W are  obtained  from  equation  (2.3.13). 

u 
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III.  Case  when  only  a decision  to  accept  is  possible 
at  stage  n. 

When  V = °°  a decision  to  reject  H cannot  be 

R 0 

made  at  stage  n.  If  V = 

R 

C 

R 

and 

P 

R 

so  the  ellipse  B becomes: 

R 


2V  +1 

R 

2nVR 


2nV 

R 


The  projection  of  B DP  onto  the  W , Q axes  yields,  RE: 

R n n 


(1+T-)  Wn2  + (1+i)  0r,2  ' 2*w„  - 2b°„  - 


c - a2  - b2, 


which  is  now  the  equation  of  a circle  with  center  at 


W 


n 


and 


1+- 

n 


l+± 

n 


na 
n+ 1 

nb 
n + 1 


radius 


/ 


nc 


na 


n+1  (n+1) 


nb 


(n+1) 
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The  equation  for  AE  is  still  given  by: 


(C  +1)  W 1 + (C  +1)  Q - 2aV*  - 2bQ  - 2P  W Q = c 
'-A-'n  v A ' n n n Ann 


which  is  the  equation  of  an  ellipse  with  center  at 


b(Cft+i) 


^CA-PA+1)  ^CA+PA+1) 


W 


a(CA+l) 


(°A-PA+1) (CA+P»+1) 


In  this  situation  the  set  H consists  of  all  W , Q 

n n 

which  lie  outside  the  curve  AE  yet  inside  RE. 


By  equating  the  left  hand  sides  of  RE  and  AE 
one  obtains  the  following  equation: 


W 2 + Q 2 - 2W  Q = 0 

n n n n 


or 


(W  - Q ) 
1 n nJ 


This  means  that  the  two  curves,  AE  and  RE,  wi 

intersect  only  at  the  points  where  W = Q . 

n n 

Substituting  this  into  RE  yields 


2(H~)Qn2  - 2(a+b)Qn  = c - a2  - b2 


2-4  3 


Solving  for  yields 

(a+b)  +_  ^[a+b]^~- - 2(l+-pj-)  (a2+b2-c)' 

2 (1+-^) 

v n J 

At  this  point,  it  must  be  noted  that  there  are  a 

variety  of  ways  in  which  the  curves  AE  and  RE  can 

intersect.  The  above  derivations  have  shown  that  when 

only  a decision  to  accept  H ^ is  possible  at  stage  n, 

the  curves  will  intersect  along  the  line  W = Q . 

n n 

The  specific  points  of  intersection  are  given  by  the 
previous  equation.  This  equation  may  yield  zero,  one, 
or  two  distinct  intersection  points,  depending  upon  the 
value  of  the  discriminant;  i.e. 

(a+b) 2 - 2(1+-) (a2+b2-c) . 
n 

This  equation  reveals  that  the  number  of  intersection 
points  depends  solely  upon  the  point  a,  b,  c. 

Each  of  the  intersection  possibilities  (i.e.,  zero, 
one,  or  two  intersection  points)  indicates  a different 
geometric  relationship  between  AE  and  RE;  which  means 
that  each  results  in  a different  U,  Z integration  region. 
Thus,  to  obtain  the  entire  density  (i.e.  the  density  at 
all  points)  requires  deriving  the  integration  regions  of 
all  the  possible  intersection  situations.  Each  of  these 
possibilities  will  now  be  considered. 
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I 
I 

Whenever  the  following  condition  occurs 

(a+b)2  - 2 (1+— ) (a2+b2-c)  < 0 

I 

the  two  curves  RE  and  AE  will  never  intersect. 

This  indicates  one  of  the  following  geometric  relation- 
ships must  exist: 


(1) 

the 

curve 

RE 

contains 

AE 

(2) 

the 

curve 

AE 

contains 

RE 

(3) 

the 

curves 

AE 

and  RE 

contain  no  points  in 

common,  given  they  don't  intersect. 


Situation  (3)  will  occur  only  if  neither  curve  contains  the 
other's  center.  This  is  equivalent  to  satisfying  the 
following  inequalities  (if  they  don't  intersect); 


(2.3.16) 
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When  these  inequalities  are  satisfied  the  set  H consists 

of  all  W , Q contained  inside  RE.  This  is  shown  in 
n' 

Figure  4.  The  end  points  of  this  circle  are  given  by: 


Let  the  smaller  root  be  denoted  by  Q and  the  larger 

L 

by  Q ; then  the  U integration  limits  are  given  by 

nu 


(2.3.18) 


h 

For  a given  value  of  U,  say  U the  Z integration 
limits  are  given  by 


I 

) 

I 

I 

I 

\ 

l 


2- 


FIGURE 


Integration  Region 
When  Neither  a Decision  to  Accept 
or  Reject  Can  Be  Made 


W 


n 


Ellipse  RE 
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These  limits  are  identical  to  those  in  equations  (2.3.6) 

and  (2.3.8);  which  is  to  be  expected,  since  situation  (1) 

is  a case  where  all  points  Wn,  Qn,  Rn,  which  can  be  mapped 

into  the  point  a,  b,  c,  lie  in  the  continuation  region  C . 

n 


Situation  ( 2)  will  occur  whenever  the  center  of  the 

j 

circle  RE  is  a point  inside  the  ellipse  AE;  and  the 
following  point  on  RE 


/ na 

nc 

2 

na 

1 

,2 

nb 

J + 

n+1 

2 

2 

r n+a 

(n+1) z 

(n+1) z 

nb 

n+1 


(2.3.21) 


is  inside  the  ellipse  AE . This  is  equivalent  to  satisfy- 
ing the  following  inequalities: 


n (a-b) 2 
2Vn(n+l)  2 


n+1  n+1 


< 


0 


(2.3.22) 


and 


1 

2nV 

A 


x/7 

(n+1) 


(a-b) 


na 


2 


(n+1)2 


(n+1)  2 


< 0 


Since  the  second  inequality  can  never  be  satisfied, 
situation  (2)  will  never  occur. 


(2.3.23) 
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Situation  (1)  will  occur  whenever  the  center  of  the 

ellipse  AE  is  a point  inside  RE;  and  the  point  W , Q 

nc  nc 

defined  in  equation  (2.3.21)  is  outside  AE . The 
second  constraint  amounts  to  requiring  the  left  hand  side 
of  equation  (2.3.23)  to  be  greater  than  zero;  which  will 
always  be  true.  The  first  is  equivalent  to  satisfying 
the  following  inequality: 


n ( a-b) 2 

2V  (n+1) 2 
A 


c 


2 

a 


n+ 1 


(2.3.24) 


Whenever  this  is  true,  the  region  of  interest  must  be 
broken  up  into  4 subregions  as  shown  in  Figure  5.  Thus 
the  integral  in  equation  (2.3.8)  will  be  broken  up  into 
4 separate  integrals,  so  that 


Wa'bfC) 


' 

b-U,  c-Z2-U2)dZdU 

> 


(2.3.25) 


The  limits  U , U , Z , Z will  now  be  obtained 
u . L . u ■ L • 

1111 

for  each  region. 


For  each  region  a range  of  can  be  found; 


Q < Qn  < Q_ 

n . — n — n 
Li  ui 


from  which  the  U integration  limits 


U = b-Q  and  U 

Li  nui  i 


nLi 


are  obtained  as: 


= b-Q 
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FIGURE  5 


An  Integration  Region 
Consisting  of  Four  Pieces 


45^*  line 


QnLc  QnLA  QnuA  QnLc 
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The  range  of  for  each  of  the  subregions  is  as  follows: 


L I 


= Q_ 

< 

Q 

< 

Q 

= Q 

n 

LC 

n 

nLE 

nul 

= Q_ 

< 

< 

Q 

= Q 

n 

UA 

n 

n 

uc 

nu2 

= Q 

< 

< 

Q„ 

= Q 

p 

> 

n 

nUA 

nu3 

= () 

< 

< 

Q 

= Q 

n 

LA 

n 

n 

UA 

1 

G 

Region  I: 


Region  II: 


Region  III: 


Region  IV; 


Whej.e  Q and  Q are  the  two  Q end  points  of  the 

n n n 

lc  uc 

circle  RE,  or  the  smallest  and  largest  values  of  equation 
(2.3.17) . 

Q and  Q represent  the  Q end  points  of  the 

n „ n n 

LA  UA 

ellipse  AC.  These  are  obtained  by  the  same  methods 
employed  for  Case  II  (equation  (2.3.12));  yielding  Q 

nLA 

and  Q as  the  smallest  and  largest  values  of 

n J 

UA 


b (c  +1)  +aP  /f  b (c  +1)  +aP  l2  [a2-  (c  +1)  (a2+b2-c)" 

b A + / A A _ A 


(c  +1) 2-P  2 

A A 


P 2-(c  +1)  2 
A A 


P 2-(c  +1)  2 
A A 


(2.3.27) 


Similarly,  for  each  region  a range  of  values  can  be 


defined:  W < W < W 

n . - n — n . 
Ll  U1 


from  which  the  Z limits  are 


obtained  as:  Z = a - W and  Z = a - W 

Li  nui  ui  nLi 
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The  range  of  for  each  of  the  subregions  is  as  follows: 


I : 

w 

= W 

£ 

w 

W 

= w 

nLl 

nLC 

n 

nuc 

nul 

II : 

W 

= W 

W 

<_ 

w 

= w 

nL2 

nLC 

n 

nuc 

nu2 

III : 

W 

= W 

< 

W 

£ 

w 

= w 

n -> 
l3 

nUA 

n 

nuc 

n , 
u3 

> 

H 

W 

= W 

W 

<_ 

w 

= W 

n . 
l4 

nic 

n 

LA 

n . 
U4 

Where  W and  W are  W points  on  the  lower  and 

nT  n„  n 

Lc  uc 

upper  portion  of  the  circle  RE;  and  W and  W 

nLA  nuA 

the  analogous  points  on  the  ellipse  AE . As  in  the 
previous  cases,  these  values  will  depend  upon  the  value 

of  Q^,  Qn  Qn  Qn  , or  equivalently  the  value  of  U. 

★ 

For  a given  value  of  U,  say  U , W and  W are 

lc  uc 

the  smallest  and  largest  values  of  equation  (2.3.20). 

The  values  W and  W are  the  smallest  and  largest 

n . n _ 

la  u a 

values  of  the  following: 


(a+P  Q ) 
A + 

(C+l) 

A 


* 2 2 2 * * 2 
a+P  Q z a +b  -c-2bQ  + (C  +1)Q 

2 - £ (2.3.28) 

C +1  C +1 

A A 


★ * 

where  Q = b - U . 
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The  case  where  the  curves  RE  and  AE  intersect 
at  only  one  point  must  also  be  considered.  This  will 
happen  whenever 

(a+b)2  - 2(1+— ) (a2+b2-c)  = 0. 

n 


If  this  is  true  the  curves  will  intersect  at  the  point 


W 

n 


n (a+b) 
2(n+lj~  • 


(2.3.29) 


Based  on  the  previous  discussion  this  can  only  occur  in 
the  following  situations: 


(1) 

the  curve 

RE 

contains 

AE; 

(2) 

the  curves 

AE 

and  RE 

contain  no  points  in 

common,  except  for  the  point  of  intersection 
given  in  equation  (2.3.29). 


Situation  (2)  will  occur  whenever  the  inequalities 
given  by  equations  (2.3.15)  and  ( 2.3.16)  are  satisfied. 
Since  the  point  of  intersection  will  be  on  the  boundary 
of  RE,  the  integration  regions  U , U , Z , and  Z 
can  still  be  obtained  by  equations  (2.3.18)  and  (2.3.19). 


/ 
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Situation  (1)  will  occur  whenever  the  inequality 
given  in  equation  (2.3.24)  is  satisfied.  The  integration 
region  must  now  be  broken  up  into  three  pieces  as  shown 
in  Figure  6.  This  is  simply  a special  case  of  Figure  5 
and  may  be  evaluated  by  the  same  methods  used  to 
evaluate  equation  (2.3.25). 

The  curves  RE  and  AE  may  also  intersect  at  two 
points.  This  will  happen  whenever 

(a+b)1 2 3  - 2 (1+— ) (a2+b2-c)  > 0. 
n 

This  indicates  that  one  of  the  following  geometric 
relationships  must  exist: 

(1)  The  ellipse  AE  is  contained  inside  the  circle 

RE,  with  the  end  points  of  AE  touching 

the  circle. 

(2)  The  intersection  points  fall  below  the  axis 

of  the  ellipse  AE,  which  is  parallel  to  the 

line  W = Q . 

n n 

(3)  The  intersection  points  fall  above  the  axis 

of  the  ellipse  AE,  which  is  parallel  to  the 

line  W = Q . 

n n 
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FIGURE  6 


An  Integration  Region 
Consisting  of  Three  Pieces 


Q 


n 
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Consider  the  following  set  of  rotated  axes  (45°  rotation) : 


W 


✓T 

2 

/X 

2 


Q + W 
n n 


-Q  + W 
n n 


(2.3.29) 


The  ellipse  AE  in  terms  of  this  new  coordinate  system 
becomes : 


+ 1-P  ) Q ' - 
A n 

/F'U+b) 

2 

+ (C  +1+P  ) 

A A 

w - /T"(a-b) 

n 2 (C  +1+P  ) 

A A 

2 (C  +1-P  ) 

A A 

2 u2 

= r*—  ^ — K _ 

(a-b) 2 

(a+b) 2 

(2.3.30) 

2 (C  +1+P  ) 

A A 

2(Ca+1-V 

Also,  the  line  W = Q becomes; 

n n 


W ' = o. 
n 


(2.3.31) 


From  these  equations  criteria  for  situations  (1)  - (3) 
can  be  established.  Situation  (1)  will  occur  whenever  a = b; 
situation  (2)  will  occur  whenever  a > b;  and  situation  (3) 
will  occur  whenever  a < b. 


Situation  (1)  is  shown  in  Figure  7.  The  integration 
region  must  be  divided  into  at  most  four  subregions,  as  in 
Equation  (2.3.25).  The  integration  limits  are  the  same  as 


those  obtained  for  equation  (2.3.25),  with  the  exception 
that  one  or  two  of  the  subregions  may  be  empty. 

Situation  ( 2)  is  shown  in  Figure  8.  The  integration 
region  must  now  be  divided  into  three  subregions.  The 
range  of  for  each  of  the  subregions  is  as  follows: 


Region  I: 

Q_ 

= Q 

< 

Q 

< 

Q 

= Q_, 

nLl 

n 

LC 

n 

nLI 

n . 
ul 

Region  II: 

QnL2 

= 

nLI 

< 

Qn 

< 

Qn 

UI 

II 

o 

n 

G 

ro 

Region  III: 

Q 

= <2 

< 

Q_ 

< 

Q 

= Q 

nL3 

UI 

n 

nuc 

nu3 

(2.3.32) 


The  quantities  Q 


n 


and  Q 


are  again  the  two  Q 


n 


LC  uc 

end  points  of  the  circle  RE,  or  the  smallest  and  largest 

values  of  equation  (2.3.17).  Q and  Q are  the 

n n ,, 

LI  ui 

intersection  points  of  the  ellipse  AE  with  the  circle  RE, 
or  the  smallest  and  largest  values  of  the  following  equation 

(a  + b)  + 


'(a+b)2  - 2 d+-J-)  (a2+b2-c) 


(2.3.33) 


I 
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I 

FIGURE  8 

I 

Integration  Region  When  Ellipse  AE 
Intersects  Circle  RE  at  Two  Points 
Situation  3 


I 

I 

I 

I 
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The  U integration  limits  for  each  region  are  then  given  by: 


u . 

= b 

- Q 

LI 

nui 

u . 

= b 

- Q 

ui 

nLi 

i = 1,2,3  (2.3.34) 


The  range  of  for  each  of  the  subregions  is  as 

follows : 


Region 

I : 

W 

n i 

Ll 

= W 

n 

LC 

< 

W 

n 

< 

w = w 

nuc  nul 

Region 

II : 

W 

nL2 

= W 

nLC 

< 

W 

n 

< 

w = w 

nUE  nu2 

Region 

III: 

W 

nL3 

= W 

nLC 

< 

W 

n 

< 

w = w 

n UC  n U3 

(2.3.35) 


*r 

For  a given  value  of  U,  say  U , W and  W are  the 

J n n 

LC  UC 

smallest  and  largest  values  of  equation  (2.3.20)  and  W 

n 

u c 

is  the  larger  value  of  equation  (2.3.28).  Thus, 
the  Z integration  limits  are  obtained  as: 


ZLi  = 

a - W 

n ui 

Zui  " 

a - W 

nLi 

i = 

1,2,3 

(2.3.36) 

Situation  (3)  is  shown  in  Figure  9.  As  in  situation  (2), 
the  integration  region  must  be  broken  up  into  three  subregions. 
The  range  of  Qn  for  each  of  the  subregions  and  the  U 


1 


J 


integration  limits  are  still  given  by  equations  (2.3.32)  and 


2-60 


I 


FIGURE  9 

Integration  Region  When  Ellipse  AE 
Intersects  Circle  RE  at  Two  Points 
Situation  3 
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(2.3.34)  respectively.  However,  the  range  of  for  each 

of  the  subregions  is  now: 


Region  I: 

W 

= W 

< 

W 

< 

W 

= W 

n . 
Ll 

n 

LC 

n 

n 

UC 

nui 

Region  II: 

W 

= W 

< 

W 

< 

W 

= w 

nL2 

n 

LC 

n 

nLE 

n _ 
u2 

Region  III: 

W 

= W 

< 

W 

< 

W 

= W 

nL3 

nLC 

n 

nUC 

nu3 

(2.3.36) 


Where  W is  the  smaller  value  of  equation  (2.3.28). 

n 

LE 

Given  these  values  the  Z integration  limits  are  given  by 
equation  (2.3.36). 


It  is  also  possible  that  the  ellipse  AE  does  not  exist. 
This  will  occur  whenever  the  surface  B does  not  intersect 

A 

the  mapping  function  P,  or  whenever  the  following  inequality 
is  satisfied: 


n (a-b) 2 

2 (n+1 ) [ (n+1) V +1] 

A 


Ln+1 


n+U 


> 


0 


(2.3.37) 


This  is  not  a special  case,  however,  because  whenever  this 
inequality  is  satisfied,  inequalities  (2.3.15)  and  (2.3.16) 
are  also  satisfied.  Thus  the  integration  regions  are 
obtained  from  equations  (2.3.17)  - (2.3.20). 
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In  summary,  this  section  has  discussed  the  various 
types  of  integration  regions  that  can  result  when  only 
a decision  to  accept  is  possible  at  stage  n,  criteria 
for  determining  when  each  of  these  regions  is  appropriate, 
and  formulas  to  calculate  the  required  U,  Z limits 
for  each  of  these  regions. 
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IV.  Case  when  either  a decision  to  accept  or  reject 
Hq  is  possible  at  stage  n. 


Whenever  0 < VA  < VR  < ' b°th  acceptance  and 

rejection  are  possible  at  stage  n.  In  this  case,  both 
the  curves  AE  and  RE  become  equations  of  an  ellipse. 
In  order  to  determine  the  integration  region,  it  is 
necessary  to  know  the  intersection  points  of  the  two 
ellipses . 

The  intersection  points  are  most  easily  found  by 
transforming  AE  and  RE  into  a coordinate  system 
rotated  45  degrees.  The  equation  for  RE  in 

the  rotated  axes  becomes,  RE'': 

(C  -P+1)  Q"  2 + (C  +1+P  ) W"  2 - S (2a+2b)  Q'  (2.3.30) 
k k n k k ri  n 

- S(2a-2b)  W"  = C-a2-b2 

n 

and  that  of  AE  , 


AE"  : 


(C  -P  +1)  Q'  2 + (C ,+1  + PJW'  2 - S(2a+2b)  Q' 

A a n A A n n 

- S ( 2a-2b)  W"  = C-a2-b2 

n 


(2.3.31) 


where  S is  given  by 


S = Sin  ( 4 5° ) = 


. VT 
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These  equations  may  he  further  simplified  as: 


RE 


( S (a+b) 

(c  -p  +i)  Iq'  - - 

R R I n (C  -P  +1) 


+ (CR-PR+1)  { w; 


R R 


S (a-b) 


(C  +P  +1) 
R R 


2 , 2 

= c-a  -b  + 


(a+b) 


(a-b) 


2 (C  -P  +1)  2 (C  +P  +1) 

R R R R 


and 


AE 


(c  -p  +i)  < q;  

A A \ n (C  -P  +1)  ) 


S (a+b)  i"  ( 

} + (C  +P+1)  (W 


A A 


A A 


S (a-b) 


(C  +P  +1) 
A A 


2 v.2 

= c-a  -b  + 


(a+b) 


(a-b) 


2 (C  -P  +1) 
A A 


2 (C  +P  +1) 

A A 


Since 


and 


2nV 


2V  +1 
A 


2nV 


(with  similar  expressions  for  P and  C ) , these 

R R 

may  be  substituted  into  the  above;  which  yields  after 
combining  similar  terms, the  following  expressions: 


2-G  5 


C 

A 


-P  +1 
A 


C -P  +1 

R R 


the  above  equations  show  that  both  curves  will  have 
identical  coordinates  for  their  centers. 
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Solving  for  Q'  in  RE'  yields  a solution  of  the 
following  forms 


Q = K + D 
n — 


where 


K = 


S (a+b) 


(CR-PR+1> 


D = 


. 5 (a+b)  2 ra2+b2-c+(Cn+l+PD)w'  2-S(2a+2b)W* 
K K n n 


<CR-PR+1) 


C -P  +1 
R R 


Substituting  this  form  in  the  equation  for  AE " yields 


(C  -P  +1) (K2+D2) + (C  +1+P  ) W'  2 
A A A A n 


(2.3.32) 


- S ( 2a+2b) K - S(2a-2b)W' 


+ (+  2KD(CA-Pft+1)  - S ( 2a+2b) (+  D) ) 


2 2 

= C-a  -b 


In  general  an  equation  describing  the  intersection  of  two 
ellipses  will  be  a quartic.  Equation  (2.3.32)  is  a 
special  case,  however,  and  can  be  reduced  to  a quadratic 
by  noting  that  the  following  term 


+ D(2K(Cn-PA+l)  - S ( 2a+2b) } 
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S (2a+2b)  (C  -P  +1) 

= + D - - - S ( 2a+2b) 

(C  -P  +1) 

R R 


is  zero  since 


(C  -P  +1) 

A A 


(C  -P  +1) 
R R 


Solving  equation  (2.3.32)  for  Wn ' and  substituting  into 
RE  yields  the  following  ' , Qn'  intersection  points: 


W ' = 0 

n 


(2.3.33) 


S (a+b)  n + y s|(a+b)  nj  2-n  (n+1)  (a2+b2-c)' 


In  terms  of  the  original  W^,  Q axes  the  intersection 
points  become: 


Wn  = Qn  = 2"(nVl)  n (a+b)  + J [(a+b)  nl  2-n  (n+1)  (a2+b2-c) 


(2.3.34) 

This  means  that  the  two  ellipses,  AE  and  RE,  will 
intersect  at  zero,  one,  or  two  points.  The  sign  of  the 
discriminant  of  equation  (2.3.34), 


DIS  = 


[(a+b)  nj  2-n  (n+1)  (a^+b‘ 


determines  the  number  of  intersection  points.  Whenever: 


1.  DIS  < 0 

AE  and  RE  will  not  intersect. 


(2.3.35) 


I 
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2.  DIS  = 0 (2.3.36) 

AE  and  RE  will  intersect  at  only  one  point, 
this  point  being 


W 

n 


n (a+b) 
2 (n+1) 


3.  DIS  > 0 (2.3.37) 

AE  and  RE  will  intersect  at  two  points. 


Consider  first,  the  case  when  AE  and  RE  do  not 
intersect,  or  when  equation  (2.3.35)  is  satisfied.  This 
indicates  one  of  the  following  geometric  relationships 
must  exist: 


(1) 

the 

curves 

AE 

and/or 

RE  do  not 

(2) 

the 

curve 

RE 

contains 

AE 

(3) 

the 

curve 

AE 

contains 

RE 

(4) 

the 

curves 

AE 

and  RE 

contain  no 

points  in  common. 
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Situation  (1)  will  occur  if  either  of  the  ellipses 
has  an  imaginary  radius,  or  whenever  either  of  the 
following  equations  is  satisfied: 


2 ,2  , ,,2 

a b (a-b)  n 

C <_  0 

n+1  n+1  2(n+l) (V  +nV  +1) 

R R 

2 2 2 
a bZ  (a-b)  n „ n 


n+1  n+1  2(n+l)  (V  +nV  +1) 


(2.3.38) 


(2.3.39) 


Since  _<  Vr,  inequality  (2.3.39)  will  be  satisfied 

whenever  (2.3.38)  is  satisfied.  If  (2.3.38)  is  satisfied, 
f(a,b,c)  = 0,  since  none  of  the  points  that  can  be  mapped 
into  a,b,c  lie  in  the  continuation  region. 

If  inequality  (2.3.39)  is  satisfied  and  (2.3.38)  is 
not,  the  point  a,b,c  is  located  such  that  the  mapping 
function  P intersects  the  rejection  surface  but  never 
intersects  the  acceptance  curve.  This  reduces  to  a case 
previously  discussed,  the  case  when  only  a decision  to 
reject  is  possible,  and  the  integration  regions  are 

given  by  equations  (2.3.11)  through  (2.3.14). 

Assuming  neither  inequality  (2.3.38)  or  (2.3.39)  is 
satisfied,  situation  (4)  will  occur  when  neither  curve 
contains  the  other's  center,  or  when  the  following  inequali 
ties  are  satisfied: 
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/v  +nV  +1\ 

! n2 (a-b) 2^ 

v 

v q 

( R R J 

R 

A 

V nVR  / 

\ 2 / 

(V  +nV  +1) 

L R R 

(V  +nV  + 1 ) 

A A J 

( a2  b2  ( a-b) 2n  j 

- c > 0 

( n+1  n+1  2 (n+ 1)  (V  +nV  +1)  ) 

R R 

(2.3.40) 

and 


/V^  +nVft  + iy 

n (a-b) 

r v 

R 

V 1 

A 

\ nV  >A 

A 

v 2 / 

(V  +nV  +1) 

L R R 

(V  +nV  +1) 

A A J 

a2  b2  (a-b) 2n  j 

> o 

n+1  n+1  2 (n+1)  (V  +nV  +1)) 

A A 


As  it  is  necessary  for  both  inequalities  to  hold,  and 
inequality  (2.3.41)  implies  inequality  (2.3.40),  it  is  only 
necessary  to  examine  the  former.  In  other  words,  situation  (4) 
will  occur  whenever  RE  and  AE  do  not  intersect,  and  RE 
does  not  contain  AE ' s center  point. 

The  set  H consists  of  all  points  W Q contained 

n , n 

inside  the  ellipse  RE.  The  integration  region  in  this  case 
becomes  identical  to  that  required  for  the  case  when  only 
rejection  is  possible  and  can  be  evaluated  using  equations 
(2.3.11)  - (2.3.14). 

Situation  (3)  will  occur  whenever  the  four  end  points 
of  the  ellipse  RE'  are  all  points  inside  AE.' 


First, 
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consider  the  RE ' end  points  along  the  Q ' axis.  When 

n 

this  is  substituted  into  AE " , the  following  inequality 
must  hold  for  situation  (3)  to  occur: 


In  (a-b) 


V 


V 


(V  +nV  +1) 
R R 


(V  +nV  +1) 
A A 


'V  +nV  +1\  /(a-b)  2n2 

A A 1 1 

nV. 


V 


l(VnVD 


V 

A 


( v D n v t i ) 
R A 


Since  <_  Vr,  this  inequality  can  not  be  satisfied; 

and  thus  situation  (3)  can  never  occur. 

Having  shown  that  situation  (3)  cannot  occur, 

situation  (2)  will  occur  whenever  both  the  ellipses 

RE  and  AE  exist  (neither  inequality  (2.3.38)  nor  (2.3.31) 

is  satisfied),  and  inequality  (2.3,41)  is  not  satisfied. 

In  this  case  the  integral  given  in  equation  (2.3.8)  must  be 

broken  up  into  four  separate  pieces,  similar  to  that  given 

in  equation  (2.3.25).  The  limits  U . , U • , Z . and 

Z i = 1,...,4  must  be  determined  for  each  region. 

LX 

For  each  region  a range  of  can  be  found; 

0 < Q < Q from  which  the  U integration  limits  are 

n . — n — n„ . 

Li  ui 

obtained  as: 


U . 
Li 
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The  range  of  Qn  for  each  of  the  pieces  is  as  follows: 


Region  I:  Q 


Ll 


= < (2  = Q„ 

n — n — n n , 

LR  LA  ul 


Region  II: 
Region  III: 
Region  IV: 


= Q < Q < Q = Q 

n — n — n n _ 

12  UA  UR  u2 

= Q < Q < Q = Q 

It  n — n — n n 

13  la  ua  u3 


= Q < Q < Q = Q 

1 . n — n — n 

l4  la  ua 


n 


u4 

(2.3.4  2)  . 


Where  Q and  Q are  the  minimum  and  maximum  Q 

n n n 

LR  UA 

coordinates  on  the  ellipse  RE;  and  Q and  Q are 

nLA  nUA 

the  analogous  quantities  on  the  ellipse  AE . 

Q and  Q have  previously  been  derived  as  the 

nLR  nUR 

smallest  and  largest  values  of  equation  (2.3.12).  A similar 


expression  derived  for  RE,  yields  Q and  Q as  the 

LA  1 UA 

smallest  and  largest  values  of 


b (C  + 1 ) + aPB 

A A 

* ( 

’b(CA+1>  + aPA' 

2 

a2- (C  +1) (a2+b2-c) 

A 

(C  +1)  2 - P 2 

A A 

-v 

PA2  - 'V1'2. 

P 2 - (C  +1)  2 

A A J 

(2.3.43)  . 


The  range  of  for  each  piece  depends  upon  the  value 

of  (or  equivalently  U)  . For  a given  value  of  IE, 

say  U*  , U*  = b-Q  *;  Q <Q*<Q  a range 

ni  nLi  ni  nui 

of  W values  can  be  defined;  W < W < W , 

n n . — n — n , 

Li  ui 


from  which 

the 

Z limits  are  obtained  as: 

Z r 

a 

- W 

L . 

1 

nui 

Z IT 

a 

- W 

Ui 

nLi  . 

I 

i 

i 
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The  range 

of  W 

n 

for  each 

of 

the 

pieces  is 

as  follows: 

Region  I: 

W 

= W 

£ 

W 

£ 

w 

W 

nLl 

nLR 

n 

nUR 

nul 

Region  II: 

W 

= W 

< 

W 

£ 

W 

w 

nL2 

nLR 

n 

n 

UR 

nu2 

Region  III 

: W 

nL3 

= W 

nUA 

< 

W 

n 

< 

W 

nUR 

W 

n , 
u3 

Region  IV: 

W 

n , 
l4 

= W 

nLR 

< 

W 

n 

< 

W 

n 

LA 

W 

n . 
u4 

(2.3.44)  . 

W and  W are  the  upper  and  lower  points  on  the 

n n.,_, 

LR  UR 

ellipse  RE,  for  a given  value  of  U*  = b - Qn* • 

These  have  been  derived  previously  as  the  smallest  and 

largest  values  of  equation  (2.3.13).  and  W 

LA  UA 

are  the  analogous  points  on  the  ellipse  AE,  and  are 
obtained  as  the  smallest  and  largest  value  of: 


(a+P  Q*) 

A 

* / 

2 

a2+b2-C-2bQ*+ (C  +1)Q*2 

A 

. (CA+1)  _ 

-V 

1 

H 

+ 

< 

U 

1 

(c  +D 

A -1 

(2.3.45)  . 

Next  consider  the  case  when  AE  and  RE  intersect 
at  only  one  point,  which  will  occur  whenever  equation 
(2.3.36)  is  satisfied.  Based  on  the  previous  discussion 
this  can  only  occur  in  the  following  situations: 

(1)  either  one  or  both  of  the  curves  AE  and  RE  do  not 
exist 

(2)  the  curve  RE  contains  AE 


(3)  the  curves  AE  and  RE  contain  no  points  in  common, 
except  for  the  point  of  intersection. 
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Situation  (1)  can  never  occur  if  equations ( 2 . 3 . 36)  or 
(2.3.37)  hold.  This  can  be  shown  as  follows: 

If 

^ n+ 1 o o 

(a+b)  -(2  ) (a  +b  -c)  >.  0 

n 

then 

9 9 (a+b)^  S, 

C = a^+b^  - + — 

2 (n+1)  2 (n+1) 

S being  a quantity  greater  than  or  equal  to  zero. 

Substituting  this  result  into  the  equation  of  the  radius 

| 

of  the  ellipse  AE  and  simplifying  yields: 

(a-b)2  S 

Radius  AE  = + 

2(C^-hl+P^)  2 (n+1)  ’ 

Since  this  quantity  will  always  be  greater  than  equal  to 
zero,  the  ellipse  AE  will  always  exist.  The  previous 
section  also  showed  that  a sufficient  condition  for  RE 
to  exist  was  the  existence  of  AE . Hence,  intersection  of 
the  ellipses  AE  and  RE  is  a sufficient  condition  for 
their  existence. 

Situation  (3)  will  occur  whenever  the  inequality 

given  in  equation  (2.3.11)  is  satisfied.  Since  the  point 

of  intersection  will  be  on  the  boundary  of  RE,  the 

integration  regions  U , U , Z , and  Z 

L L U L 

obtained  by  equations  (2.3.11)  and  (2.3.14). 


can  still  be 
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Similarly  situation  (2)  occurs  whenever  inequality 
(2.3.41)  is  not  satisfied,  and  requires  the  integration  to  be 
broken  up  into  four  pieces.  The  integration  limits  in 
each  of  these  pieces  may  still  be  obtained  by  equations 
(2.3.4  2)  through  (2.3.45). 

The  curves  AE  and  RE  will  intersect  at  two  points 
whenever  inequality  (2.3.37)  holds.  In  general,  two 
ellipses  can  intersect  at  two  points  in  many  ways. 

However,  consider  the  equations  in  the  rotated  axes 
coordinated  system: 


RE 


/^(a-bJnV 
R 

.2  (VR+nVR+l)_ 

2 ? 2 
a^  (a+b)  n 

= C - 

n+1  n+1  2 (n+1) (V  +nV  +1) 

R R 

and 


<n+3> 


IV" 


/2 (a+b) n 
2 (n+1) 


/V  +nV  +1\ 

(-«—*-) 

V nVD  / 


AE 


V2  (a+b) n' 

2 /v  +nV  +l\ 

i 1 A A 1 

Wn'  - 

r/2*(a-b)  nV  1 

A 

r 

2 (n+1) 

\ nVA  / 

2 (V  +nV  +1 

L A A J 

i 

_ 2 ,2  , .,2 

a b (a-b)  n 


C 


n+1 


n+1 


2 (n+1)  (V+nV  +1) 
A A 
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From  these  equations  the  following  relationships  may  be 


noted : 


(a)  the  curves  RE  ” and  AE  "*  will  have  parallel 
major  axes  (i.e.,  parallel  to  the  line  WR ' = 0). 

(b)  the  major  axis  of  RE'  will  be  gre:  ter  than  or 
equal  to  the  major  axis  of  AE". 

(c)  the  major  axes  of  RE " and  AE " will  always  lie 

on  the  same  side  of  the  line  W " = 0 . 

n 

(d)  the  two  curves  will  have  the  same  center  point 
and  equal  major  axes  whenever  a = b. 

(e)  since 


Q ' 

- fa  ♦ w 

n 

2 [ n n 

/T  r . 

W 

n 

— — ^ — -Q  + W 

2 n ; 

if  the  curves  intersect,  the  intersection  points 

will  lie  along  the  line  W = Q or  W ' = 0. 

n n n 


Given  these  relationships  one  can  conclude  thet  when- 
ever the  curves  intersect  at  two  points,  one  of  the  follow- 
ing geometric  situations  must  exist: 

(1)  the  ellipse  RE  circumscribes  the  ellipse  AE  . 

(2)  the  major  axes  of  the  ellipses  lie  above  the  line 

W ' = 0. 
n 

(3)  the  major  axes  of  the  ellipses  lie  below  the  line 


Wn 


0. 
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Situation  (1)  will  occur  whenever  a = b,  and 

requires  the  integral  of  equation  (2.3.8  ) to  be  broken 

up  into  two  pieces.  These  two  pieces  may  be  described 

by  W , Qn  regions  identical  to  those  of  Regions  III  and 

IV  given  in  (2.3.42)  and  (2.3.44).  Thus  the  integration 

limits  U . , U . , Z . , and  Z may  be  obtained  from 
Ll  Ul  LI  Ul 

equations  (2.3.43)  - (2.3.45). 


Situation  (2)  will  occur  whenever  a > b,  and  requires 
the  integral  of  equation  (2.3.8  ) to  be  broken  up  into  five 
pieces,  as  shown  in  Figure  10. 
each  of  the  subregions  is  as  follows: 


The  range  of  Q for 
n 


Region  I:  Q 


Region  II:  Q 


Ll 


L2 


Region  III:  Q 


n 


Region  IV:  Q 


L3 


L4 


Region  V:  Q 


n 


l5 


nLR  n 


< Q„  < Q 


n 


= Q 


LA 


< Q < Q 
nT . - n - n„_. 

LA  U A 


< Q < Q 

nLA  n nEI 


< Q < Q 
nU!  - n - nuA 


< Q < Q 
n — n — n 
ua  UR 


n 


ui 


= Q 


n 


U2 


= Q. 


n 


U3 


= Q. 


= Q. 


U4 


U5 


(2.3.46)  * 

The  quantities  Q and  Q have  previously  been  defined 

n LA  n U A 

and  may  be  obtained  as  the  minimum  and  maximum  of  (2.3.43)* 

Similarly  Q and  Q are  the  minimum  and  maximum  of 

nLR  nUR 

(2.3.12).  Q and  Q represent  the  two  intersection 

LI  nUI 


points  of  AE  and  RE,  and  are  defined  as: 
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Q = min 

LI 


{v  r2} 


L I 


Q = max  [ R 

nu  i 


i'  r2( 


where 


(a+b)n  + n/(a+b)  ^-2  (a^+b^-c)' 

2 (n+1) 

n (a+b)  - n /(a+b)  2-2  (—^*)  (a2+b2-cf 
2 (n+1) 


(2. 


The  U integration  limits  for  each  piece  are  again 
obtained  as: 


U . = b - Q 

ui  n 


Li 


U . = b - Q 

L1  nui 


Similarly  for  a given  value  of  U,  say  U*  = b - Q* 
the  range  of  W for  each  region  is  given  by: 


Region  I:  W 


= W < W < W = W 

*L  1 nLR  n nUR  nul 


Region  II:  W 


Region  III:  W 


= W <W<W  = W 

l _ n — n — n n „ 

l2  ua  ur  u2 


= w < w < w =w 

n — n — n n^ 

l3  lr  la  u 3 


Region  IV:  W 


= W < W < W = W 

x n n n _ n « 

L4  LR  LA  U4 


Region  V:  W 


= W < W < W = W 

n n — n — n 

L5  LR  UR 


U5 


3.47)  . 


L 


A 


* 
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W and  W being  the  maximum  and  minimim  of  (2.3.45), 

nLK  nUR 

and  W and  W the  same  for  (2.3.13). 

n n 

LA  UA 

The  Z limits  are  obtained  for  each  region  as: 


Z . = a - W 

U1  nLi 

Z . = a - W 

L1  nui 

Situation  (3)  results  whenever  a < b,  and  again 
requires  that  equation  (2.3.8  ) be  split  up  into  five 
separate  integrals,  as  shown  in  Figure  11.  In  this  case  the 
range  of  Qn  for  each  of  the  subregions  is  as  follows: 


Region  I: 
Region  II: 
Region  III: 
Region  IV; 
Region  V: 


n 


= Q_ 


Q_ 


Q. 


Ll 


L2 


l3 


l4 


LR 


< Q < Q 
- n - n 


= Q_ 


LA 


Ul 


= Q 


n. 


LA 


< Q < Q 
— n — n 


= Q 


UA 


n 


= Q. 


n. 


= Q. 


LA 


UI 


C Q„  < Qn 

— n — n 


= Q. 


LI 


u2 


u3 


< Q < Q 
— n — n 


= Q 


UA 


n 


u4 


n 


= Q 


L5 


n 


UA 


< Qn  < Qn 
— n — n 


= Q. 


UR 


U5 


(2.3.48) 
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For  a given 

value 

of 

u*  = 

b - 

Q* 

the 

w 

n 

range  for 

each  region 

is : 

Region 

I : 

W 



w 

< 

w 

< 

W 

_ 

W 

nLl 

nLR 

n 

nuR 

nul 

Region 

II: 

W 

= 

W 

< 

W 

< 

W 

= 

w 

nL2 

nLR 

n 

nLA 

nu2 

Region 

III: 

W 

= 

W 

< 

W 

< 

W 

W 

nL3 

nUA 

n 

nUR 

nu3 

Region 

IV: 

W 

= 

W 

< 

W 

< 

W 

— 

w 

nL4 

nUA 

n 

niJR 

nu4 

Region 

V: 

W 

= 

W 

< 

w 

< 

W 

= 

W 

nL5 

nLR 

n 

nUR 

"US 

(2.3.49)  . 
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2.4  OBTAINING  TIIE  PROBABILITIES  OF  ACCEPTANCE, 

REJECTION  AND  CONTINUATION 

The  previous  section  (2.3)  has  given  methods  for 
calculating  the  density  fn+^(a,b,c),  for  a given  point 
Wn+1  = a,  Qn+1  = Rn+i  = c»  from  the  density  at 

stage  n,  fn ^wn'^n'Rn^ * 0nce  this  density  has  been 
obtained  for  all  possible  values  of  a,  b,  c,  the  prob- 
ability of  accepting  Hg(PAn+^),  probability  of  rejec- 
ting Hq  as  (PRn+'*')  , and  the  probability  of  continuing 
(Pcn+^)  must  be  calculated.  This  requires  integrating 

the  three  dimensional  density  f , . (W  ,WQ  . , ,R  . over 

n+1  n+1  n+1  n+1 


is  in  the  appropriate  region  (e.g. , acceptance  region, 

rejection  region,  or  continuation  region) . Thus 

n n+1  _ n+1  , _ n+1  , , , . , 

PA  ' PR  ' a°d  PC  may  ca^-cu^ated  as: 


o 1 V(W,Q,R)  1 v 11+1 

K 


f , (W,Q,R) dWdQdR 
n+1 
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/// 


f , (W , Q , R)  dW  dQ  dR 
n+l 


VD  < V(W,Q,R)  < 


/// 


frHl  (W'Q'R)  dw  dQ  dR 


n+l  <.  V(W,Q,R)  < V. 


These  integrals  amount  to  integrating  f (W,Q,R) 

n +1 

over  elliptic  paraboloids,  and  may  be  reexpressed  as 
the  following  iterated  integrals: 

Ot)  /•  00  /too 


fn+l (W'Q'R)  dR  dw  dQ 


Wmm  OO  _ oo 


with 


f (W,Q,R)  dR  dW  dQ 
n+ 1 


f ^ (W,Q,R)  dR  dW  dQ 
n+l 


(2.4.1) 


2-85 


n+1  n+1 


r 72 

W-Q  * 

+ W2  + 

Q2 

2 (n+1) V n+1 

A 

n+1 

n+1 

[w-q]  2 

♦ W2 

Q2 

q(n+l)VRn+1 

n+1 

n+1 

In  practice  only  two  of  the  three  integrals  need  be 
calculated  due  to  the  following  identity: 


P n = PAn+1  + P n+1  + P n+1  . 

C A r c 

S°  lf  PA1  and  Pr1  are  calculated  at  each  stage  i, 
Pc  may  be  obtained  by  subtraction, 

P 1 = P 1-1  _ p i 

c C a 


2.5  SUMMARY  OF  THE  DIRECT  METHOD  FOR  A K=2  SANOVA  TEST 

The  purpose  of  this  section  is  to  summarize  the 
procedure  for  obtaining  the  OC  and  ASN  curves  for  a 
k=2  SANOVA  test. 

First,  a test  of  this  type  requires  specification 
of  the  following  quantities: 

(1)  The  null  hypothesis  value,  A^. 

(2)  The  alternative  hypothesis  value,  A ^ . 

(3)  A truncation  point,  m^ . 

(4)  A set  of  regions:  V^1,  vRlf  * = 2,...,  raQ, 
such  that  at  any  stage  N 

These  regions  are  to  be  compared  with  the 
statistic,  V , of  equation  (2.3.1),  such 
that  at  any  stage  n, 

n 

(a)  Hq  is  accepted  if  <. 

(b)  H.  is  accepted  if  V >.  V n. 

x n k 

(5)  Values  of  a and  8 (needed  only  if  the  regions 
are  to  be  modified  Wald  regions). 

Second,  the  first  step  at  which  a decision  can  be 
made,  say  n^,  2 ^ ^ , is  determined. 

Third,  one  must  determine  how  many  and  which  points 
on  the  OC  and  ASN  curves  will  be  calculated.  Suppose 
L values  are  chosen,  denoted  by  *£*,  = 1,««»»  L, 

such  that  Ag  = A^*  < A2*  < • ••  < A = A^- 

For  a given  A^*,  the  first  stage  density 

f_  (W  ,Q  , Rn  ) may  be  calculated  os  follows: 
nl  nl  nl  nl 
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(2.5.1) 


Note  that  this  density  is  completely  specified  by 
X*  and  n1. 

The  probabilities  of  acceptance,  rejection,  and 

continuation  at  stage  n^  (the  first  stage  at  which  a 

decision  can  be  made) ; P nl,  P nl,  and  P nl,  may  be 

A R C 

calculated  using  the  noncentral  F distribution  (given 

in  equation  (1.1.1))  and  is  shown  in  appendix  A. 

To  calculate  the  joint  density  at  the  next  stage, 

f ,,(W  ,wQ  .i,R  ., ) , requires  utilizing  the  pro- 
n^+1  n +1  n1+l  n^+1 

cedures  developed  in  section  2.3. 

As  shown  in  section  2.3,  this  consists  of  performing 
a bivariate  integration  of  the  following  five  dimensional 
joint  density  function. 


' »(X1„2)  ' *(X2n  2'Vh) 


where  n^  = n^  + 1 . 


(2.5.2) 
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This  is 


stage  n 


the  joint  density  of  the  statistics  at 

, R ; and  the  new  observations  taken 
n-, 


2 ni  + 1; 


X 


In, 


2n, 


staqe 

at 


n ; 


For  any  given  point:  W , , = a,  Q , , = b, 

J n^+1  n^+1 

R = C;  the  joint  density  f , (a,b,c)  is  calculated 

n^Tj.  n ^ * J- 

by  performing  the  following  bivariate  integration. 


(2.5.3) 

The  limits  U^,  U , Z^,  and  Z ^ are  dependent  upon 

the  particular  point  (a,b,c)  as  well  as  the  regions 

V nl  and  V nl  . 

A R 

If  no  decision  could  be  made  at  stage  n^,  these  limits 
are  the  limits  for  integrating  around  the  following  circle. 


o - z2  - u2  - - <b-“)2  . 0 

ni  ni 

(2.5.4) 

and  are  given  in  equations  (2.3.6)  and  (2.3.7).  Whenever  o 
decision  can  be  made  at  stage  n,  the  integration  region 
becomes  a subset  of  the  points  contained  inside  this  circle. 

In  some  cases  the  integral  given  in  equation  (2.5.3) 
cannot  be  evaluated  as  one  integral;  rather  it  must  be 
broken  up  into  several  pieces,  with  the  overall  integral 
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being  the  sum  of  the  individual  integrals.  Equation 
(2.3.25)  is  such  an  example.  In  such  cases,  the  integra- 
tion limits  for  each  of  the  pieces  must  be  determined. 

The  required  integration  region  for  equation  (2.5.3) 
can  be  one  of  many.  In  section  (2.3)  every  possible 
integration  region  has  been  explored;  and  for  each  case 
specific  expressions  for  the  U,Z  integration  limits  have 
been  given. 

The  U , Z integration  determination  may  be  best 

summarized  in  flowchart  format,  such  as  shown  in  Figure  12 

This  integration  must  be  determined  and  performed 

for  all  points  W , . , Q R ,, , thus  obtaining  the 

r nl+i  n1+l  ni+1 

entire  density  f L1(W  , . , Q , , , R , . ) . From  this 

n-^+1  ni+1  n^+1  ni+1 

density  the  probabilities  of  acceptance  (Pftnl+^) , 
rejection  (P  nl+1) , and  continuation  (P  nl+1)  must 
be  calculated.  Their  calculation  requires  performing  a 


trivariate  integration  of  the  density  f . (W  . , Q +, , 
R , . ) over  elliptic  paraboloids.  This  is  most  easily 

nl+l 

performed  as  iterated  integrals  as  shown  in  (2.4.1). 

The  entire  process  of  obtaining  the  density, 

f.(W.,  Q.,  R.),  from  the  density,  f.f.(W.  Q.  .,  R.  ., 

XU,  X_i)  , and  ultimately  the  probabilities,  P^, 

P 1,  P 1,  must  be  iterated  for  all  stages, 

R C 

i = n^  + 2,  . . . mQ. 
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★ 

The  final  result,  for  a given  A^  , is  the  set  of 
probabilities,  P^,  Pr1,  P^,1 , i = 2,  . . . m . These 
probabilities  will  depend  upon  the  value  of  A^*.  This 
can  easily  be  seen  by  noting  that  both  the  first  step 
density  of  equation  (2.5.1)  as  well  as  the  five  dimen- 
sional density  of  equation  (2.5.2)  are  both  functions 

of  A *.  Therefore,  the  notation  P 1(A0  ),  P 1(A  *), 
~ A X*  R X, 

i * 

Pc  (A^  ) , i = 2,  . . . , mQ  , will  be  used  to  denote 

such  a dependence.  From  these  probabilities,  the  point 

★ 

on  the  OC  and  ASN  curves  for  A = A^  may  be  calcu- 
lated. These  quantities  are  calculated  as  follows: 

mo 

oc(J/>  - £ 

L=Z  (2.5.5) 

and 


m. 


ASN ( A ^ ) 


- £ 


L = Z 


m. 


* i * 

P R (X£  > + PA  > 


i = 1 


0 

*£ 

L=Z 


i * 

Pc  > 


(2.5.6) 
i * 

Note  that,  by  having  all  the  probabilities  Pft  (A^  ) , 

i * i * 

PR  ^ 1 Pc  other  quantities  of  interest  may  also 

be  calculated  (e.g.  variance  of  DSN,  median  of  DSN, 
percentile  of  DSN,  etc.). 
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This  entire  process  has  given  a single  point  on  the 

OC  and  ASN  curves.  To  obtain  the  next  point  on  the  OC 

and  ASN  curves  the  density  f (W  , Q , R ) must  again 

nl  nl  nl  nl 

be  obtained  from  equation  (2.5.1)  with  A = A*+1<  The 
process  of  obtaining  the  density,  f^tVT,  Q^,  R.),  and 
the  probabilities  P^A*^),  Pr^^-h*'  PC1(A*+1),  must 
then  be  iterated  for  all  stages  i = n^+1,  . . . , mQ . 

The  Direct  Method  for  K = 2 SANOVA  has  been 
summarized  in  flowchart  format  as  shown  in  Figure  13.  | 

I 

I 

J 

! 

I 

I 

I 


I 


FIGURE  12 


For  any  given  stage,  n:  with  regions  VA  and  VR, 

the  density  of  the  point  (W  = a,  Q = b,  R = c)  is 

n n n 

found  by  integrating  the  density  of  equation  (2.3.5) 

as  shown  in  equation  (2.3.8).  The  integration  limits 

U , U , Z , Z may  be  obtained  from  the  following  flowchart. 
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is  possible  at  stage  n 


1 
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FIGURE  12  (continued) 


I 

U I 
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FIGURE  12  (Continued) 


Piece 
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FIGURE  12  (Continued) 


The  integral  must  be  broken 
up  into  at  most  4 pieces 
as  given  in  equation  (2.3.25) 


The  n amber  of  pieces  will  depend 

upon  the  sign  of  (a+B)2  - 2 ( l+~)  ( a2+b2-c) 


The  integration  limits  for  each 
piece  are  given  by: 


U Limits 


UU  - b - Q„f 


u.  = b - Qn 

l n. 


Z Limits 


Z„  = a - W 
u n. 


a - W 


Uu  “ b ' Qn, 


Z„  = a - W 
U n. 


UT  = b - Q 
L n. 


ZT  = a - W 
L n. 


UU  - b - Qn 


Z„  = a - W 
U n. 


U.  = b - Qn 
L n. 


ZT  = a - W 
L n. 


UU  “ b - Qn, 


Z ..  = a - W 

u n. 


UL  ' b - Qn, 


ZT  = a - W 
L n, 
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FIGURE  12  (Continued) 
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FIGURE  12  (Continued) 
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I 

I 

I 


I 

i 


I 


Piece  # 

u_ 

Limits 

z_ 

Limits 

1 

Uu 

= 

b 

- 

2U 

= 

a 

- 

W 

nLR 

UL 

= 

b 

”” 

V* 

ZL 

= 

a 

W 

nUR 

2 

Uu 

= 

b 

- 

ZU 

= 

a 

- 

W 

nUA 

UL 

= 

b 

" 

“"us 

Z L 

~ 

a 

W 

nUR 

3 

UU 

= 

b 

- 

ZU 

= 

a 

- 

W 

nLR 

UL 

“ 

b 

Q 

n L I 

ZL 

= 

a 

W 

n LA 

4 

UU 

= 

b 

- 

Q_ 

nUI 

ZU 

= 

a 

- 

W 

nLR 

UL 

= 

b 

Qn 

nUA 

z 

~ 

a 

W 

nLA 

5 

UU 

= 

b 

- 

Qn 

nUA 

zu 

= 

a 

- 

W 

nLR 

UL 

— 

b 

~ 

Q_ 

nUR 

zu 

= 

a 

- 

w 

nUR 
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FIGURE  13 
FLOWCHART 

SUMMARY  OF  DIRECT  METHOD 
FOR 

K= 2 SANOVA 


2-105 

FIGURE  13  (Continued) 
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2 . 6 Numerical  Methods 

The  previous  sections  have  given  a detailed 
description  and  derivation  for  obtaining  the  properties 
of  a K=2  SANOVA  test  by  the  direct  method. 

In  summary  the  procedure  requires  the  following 
steps : 

1.  For  a given  value  of  X = A*,  determine  the 

joint  density  at  the  first  stage  at  which  a 

decision  can  be  made;  f (W  , Q , R ) . 

nl  nl  nl  nl 

2.  Calculate  the  joint  density 


f 

(W 

Q 

nl+l 

nl+l 

nl+l 

of  W 

n 

/ Q 

111 

. R. 

l i 1 

n 


1+1 


‘1+1 


3. 


a.  Forininy  the  five  dimensional  joint 

density  f P(W  ,Q  ,R  ,X..  /x9n  ) 
n ^ n ^ -+  n ^ 2 n 2 

as  given  in  equation  (2.5.2). 

b.  Performing  the  bivariate  integration 
on  this  five  dimensional  joint  density 
qiven  in  equation  (2.5.3). 

Performing  a trivariate  integration  of  the 

density  f +1<Wr  +1'Qn  +i'Rn+l>  to  obtain 

1 • 1 1 n +1 

the  probabilities  of  acceptance  (Pft  . ) , 

rejection  (P  nl  + '*')  , and  continuation 
R 

(p  ni+ii . 


i 

I 
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4.  Iterating  steps  2 and  3 on  the  density 


f . (W.  , Q.  , R. ) 

i i l i 

for 

all 

i.  ^ 2 $ • • • / M q • 

Calculating  the 

OC 

and 

ASN  for  X = A*. 

6.  Repeating  steps  1 through  5 for  all  values 
of  \*  of  interest. 

This  section  will  discuss  the  practical  evaluation 
of  the  integrals  required  in  steps  2 and  3 of  the  above 
procedure . 

These  integrals  will  generally  be  very  complicated 

expressions.  For  example,  wherever  no  decision  can  be 

made,  the  U,  Z region  of  integration  required  for 

step  2 consists  of  all  U,  Z contained  inside  the  circle 

given  in  equation  (2.5.4  )•  The  actual  U,  Z integration 

limits  required  are  given  in  equations  (2.3.6  ) and  (2.3.7  ). 

This  amounts  to  integrating  a five  dimensional  joint  density 

2 

composed  of  the  product  of  a x and  four  normal  densities. 
This  integration  can  be  evaluated  analytically,  yielding 
the  density  given  at  the  top  of  page  2-20.  The  cases  which 
require  integrating  aroung  ellipses  (e.g.,  equations  (2.3.12) 
- (2.3.14)  ) or  those  that  require  breaking  the  integral  up 
into  several  pieces  (e.g.,  equations  (2.3.25)  - (2.3.28)  )> 
generally  can  not  be  evaluated  analytically. 
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I 

I 

I 

I 

* 

1 


\ 

i 

I 


i 

i 


One  approach  is  to  develop  a numerical  approxi- 
mation to  these  bivariate  integrals  (e.g.,  series, 
partial  fraction,  or  continued  fraction  expansions) . 
Since  the  integration  region  required  is  dependent  upon 
the  point  a,  b,  c (for  a given  set  of  regions) , this 
approach  would  yield  the  following  type  of  piecewise 
trivariate  density  for  stage  n^+1: 


f Expression  1 all  ,Q^  ,R^  t R ^ 


f (W  ,Qn  ,R  ) =• 
1+1  nl+l  nl+l  nl+l 


nl+l  nl+l  nl+l 


'Expression  K all  W ,Q  ,R  « R„ 

nl+l  nl+l  nl+l  K 


An  analytic  expression  for  the  integral  required  in 

step  3 with  this  type  of  piecewise  trivariate  density 

function  would  probably  not  exist.  Also,  if  one  were  to 

continue  along  these  lines,  the  density  at  later  stages; 

f i (W.,  Ri)  , i = n1  + 2, ,1^;  would  become  a 

piecewise  function  with  an  infeasible  number  of  pieces. 

An  alternative  method  for  evaluating  these  integrals 

is  via  numerical  integration.  The  analytic  density 

f n (W  Qn,  Rn)  may  be  represented  by  a discrete  three 

dimensional  grid  of  points;  f (W  , Q , R ) , 

n n.  n.  nR 

i = 1,...,N  , j - 1 , . . . , N 0,  K - 1,...,N  ; so  that  for  a 
W * R 


▲ 
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given  point  on  this  grid;  W 


Q. 


= b = Q 


1+1 


n . . 


nl+l 
= c = R 


= a = W 


ni< 


*1+1 


n, 


the  joint  density 


may  be  approximated  by  the  following  expression: 


f (a,b,c)  -v  l l a)  uj  (a-Z  , b-U  , c-Zj-U2,  Z , U ) 

n. , , — _ n 1^  2in  ni.i  £ m £ m £ m 

1+1  m £ 1+1 


The  quantities  w1n,  oj  and  Z „ , U are  the  required 

1£  zm  £ m 

weights  and  coordinates  of  the  integration  scheme  employed 
and  depend  upon  the  U,  Z region  of  integration. 

Repeating  this  procedure  for  all  a,  b,  c contained 
on  this  grid  yields  a new  grid  representing  the  density  at 


stage  n 


1+1' 


- (W  » Q » R ) 
nl+l  ni  nj  nk 


From  this  new  grid 


the  probabilities  P nl  + 1,  Pr,ni  + 1 . P ni  + 1 must  be  obtained. 

ARC 

Obtaining  these  probabilities  requires  a trivariate 
integration  which  can  also  be  done  numerically.  For  example 


_ n +i 
P,  1 

A 


l l l 

m £ p 


(A).  (A)  . (a)  f 

lm  2>i  3p  n 


(W, 


1+1 


m 


v y 


(2.6.2) 


This  new  grid  can  again  be  manipulated  to  obtain  the 
density  at  stage  n^2  and  ultimately  tne  probabilities 

Pftnl+2,  PRnl+2  and  Pcnl+2.  Repeating  the  procedure  to 

, , „ . n n n 

obtain  a new  grid  f (W  , Q , R ) and  P , P , P 

^ • n . n«  arc 

1 J K , 

for  all  n = r^  + 2,  . . . fn\g , allows  the  calculation  of  a point 
on  the  ASN  and  OC  curves. 


2-HO 


I 

1 

4 

I 


( 

i 


In  general,  the  density  at  any  point  not  on  the 
grid;  say  fi  ( W± * , Q^* , Ri*),  i = nj+2,...,M  ; must  be 
found  by  interpolation.  Note  that  this  could  require  the 
formidable  task  of  interpolating  in  three  dimensions. 
Thus,  it  would  be  desirable  to  use  a grid  scheme  and 
integration  rule  that  required  a minimum  amount  of  inter- 
polation to  evaluate  equations (2 ■ 4 . 1)  and  (2.5.3). 

First,  consider  the  following  grid  scheme: 


\ - h + <i-iiai]  h» 

% * [Qs  + % 

v - K + (k-i)^k]  \ 


i = 1 , . . . , N 


w 


j = 1, . . . ,N 


k = 1, . . . ,N 


(2.6.3  ) . 


The  quantities  a. , 6^ » are  all  integers  chosen 


i 3 


such  that: 


W < W 


Q_  < Q. 


< w 


nn 


w 


< Q 


nn 


< R 


< R 


nn 


The  choice  of  the  quantities  W , Q , R„,  h , h , and  h 

S S S W Q R 

will  be  discussed  later. 


j 


i 

i 
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Many  integration  rules  are  available  (Davis  and 

Rabinowitz  (1967));  but  to  avoid  excessive  amounts  of 

interpolation  a rule  should  be  chosen  which  allows  the 

majority  of  the  points  to  be  located  on  the  grid. 

For  the  integration  given  in  (2.6.1)  this  requires 

that  not  only  a - Z.  and  b - U be  located  on 

x.  m 

. . 2 2 
W , Q grid  points,  but  also  that  C - Z„  - U be 
n n l m 

located  on  an  Rn  grid  point.  This  can  be  guaranteed 
if  the  quantities  hw>  h^,  and  hR  are  chosen  such  that: 

hR  = A-j^w2  + A2hg2 


or 


2 2 
hw  — A~hR  and  hg  — A«hR  , 


(2.6.4) 


where 


Af,  A2,  A3 , and  A4  are  integers. 


Using  this  type  of  grid  and  the  trapezoid  integration 
rule,  equation  (2.6.1  ) becomes: 


n nw 

£i<a'”'o)  s f l “H  “2m  £I-i  <a-2r  WV  °-zrt&  V Um> 


m=0  £=0 

where  the  coordinates  Z 
following  scheme: 


(2.6.5) 


and  U are  given  by  the 


m 


Z 


0 


u 


L 


z 

\z  / 

h 1 

u 

[u  /hi 

s 

l L 

wj 

s 
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N -1  = Z -Z  +1 

W F SS 


N -1  = U -U  +1 

e f s 


z £-i 


i = 


zs+U-l)h 

’ * ■ 'V2 


n, 


= Z. 


w— l 


= z 


‘W 


Jm  = Us+(m-1)h„ 

m = 1 , . . . ,N  -2 


0-1 


(2.6.6) 


= U.. 


with 


"o 


[X  ) 


= U. 


sign  (X)  « { greatest  integer  in  1 x l}  . 


The  weights  oi1  ^ and  <D9m  are  given  by: 


2m 


"10  - il'Wl 

“n  - illzs-2o>l*ihu 


“11  ' *hv 


£ - 2 , . . . , Nw~2 


0) 


u = *V*I<Vzf>I 


£ - Nw-1 


“li  * il'VVI 


1 = N 


and 
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“20  = il'VVI 

"21  ' illus-uo>l+ih» 
“2m  ’ ih0 

“2m  * 4V*I(VVI 
“2m  ' il<VUF>l 


With  this  grid  structure  and  integration  scheme 

the  density  of  some  points  may  still  need  to  be  obtained 

* * 

by  interpolation.  Any  values  of  Z , U that  result  in 
the  point  (a-Z  , b-U  , c-Z  2-U  2)  not  to  be  on  a (W,Q,R) 
grid  point  will  require  that  the  five  dimensional  density 
f^  ( ) be  obtained  by  interpolation.  For  example, 

there  is  no  guarantee  that  the  endpoints  ZL,  Z^,  UL  and 
U will  lie  on  a grid  point.  However,  in  such  cases,  the 
task  of  interpolation  may  be  simplified  by  considering  the 

p 

form  of  the  five  dimensional  density  f^  ( ) . 

As  shown  in  equation  (2.5.2)  the  five  dimensional 
joint  density  is  given  by: 

fiP(a-Z,  b-U,  c-Z^-U2,  Z,  U) 

= f i_1  (a-Z  , b-U,  c-z2-U2)  • <fr(Z)  • 4>  (U-  >/  \*  ' ). 

Whenever  interpolation  is  required  to  evaluate  f ^ ( ) , 

it  need  only  be  performed  in  two  or  three  dimensions  on  the 
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density  f^^t  ),  since  both  0’s  can  be  calculated 

exactly  for  any  value  of  U and  Z. 

In  other  words,  when  interpolation  is  required 


.2  ..2 


f i * ( a-Z , b-U,  c-Z  -U  , Z , U ) ~ E <J,(Z)  • 


where  E is  the  interpolated  value  of  the  density 
f i_l (a-Z , b-U,  c-Z2-U2) . 

* * ★ 

For  a given  point  a , b , c not  on  a (W,Q,R) 


* * * 


grid  point  at  stage  i-1,  the  density  f^^fa  / b , d ) 
may  be  approximated  by  trivariate  linear  interpolation. 
This  involves  the  following  approximation: 

2 2 2 

f i-  ^ a / b , c ) = P ~ 1]  E Z f i_  i ( ao  ' b ' c )a,B.:Yk 

£=1  j=l  k=l  x-  J x 


whore 


(2.6.8) 


a,  = a 


/htl  (sign  (a  ) 


a2  = a /hw 


2-  1 15 


and 


and  analagous  expressions  for  the  other  quantities. 

This  should  give  fairly  good  approximations  for 

small  values  of  h , h , and  h . For  large  values 

W Q R 

of  these  quantities  the  result  could  be  meaningless 
(i.e.,  fi(a*<  b*,  c*)  < 0 or  f^a*,  b*  , c*)  > 1), 
and  should  be  modified  in  such  cases.  The  modifications 
are  of  the  following  form: 

IP*  if  0 £ P*  < 1 

0 if  P*  < 0 

maxff^a^,  b ^ , ck)  if  P*  >.  1 

By  using  the  trapezoid  rule  and  trivariate 
interpolation,  the  density  f^(a,  b,  c)  may  be  calculated. 
This  must  be  repeated  for  all  a,  b,  c contained  on  the 
grid.  This  will  result  in  a new  grid  representing  the 
density  at  stage  i.  From  this  new  grid,  the  probabilities 
/ PR  / and  PC1  must  be  calculated.  These  proba- 
bilities can  also  be  calculated  with  a trapezoid  rule 
integration  scheme  as  given  in  (2.6.2). 
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In  practice  the  following  quantities  must  be 
specified : 

(1)  The  grid  sizes  hw,  h , hR  . 

(2)  The  end  points  of  the  grid:  Wg,  Wr,  Q$,  QF» 

R , R . 

S F 

As  in  most  numerical  problems,  the  best  choice  of 

the  grid  sizes  will  depend  upon  the  particular  problem 

(i.e.,  V 1,  V 1,  and  m ).  One  approach  to  this  problem 
A R 0 

is  to  start  the  procedure  with  a coarse  grid  and  obtain 

answers;  the  procedure  may  then  be  redone  using  a finer 

grid  and  new  answers  obtained.  This  process  is  iterated 

until  the  results  converge  to  answers  accurate  to  the 

desired  number  of  digits.  One  should  note  that  the  number 

of  calculations  required  for  each  additional  iteration 

increases  exponentially.  For  example,  suppose  a grid  is 

2 2 

constructed,  using  grid  sizes  hw,  h^,  and  hR  = hw  +h^ 

and  a.,  8 . , y,  of  (2.6.3  ) all  equal  to  unity.  Halving 

l 3 k 

the  h and  h grid  sizes  will  result  in  an  eight-fold 

w Q 

increase  in  the  total  number  of  points  on  the  grid.  The 
density  for  each  of  these  points  must  be  calculated  for 
each  stage,  which  requires  a bivariate  integration  for 
each  point  at  each  stage. 

The  grid  end  points  must  be  chosen  so  as  to  exclude 
only  a minute  fraction  of  the  density  for  all  stages: 


i = n^,...,n»Q.  This  amounts  to  choosing  the  quantities 
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W , W , Qg,  Qp  and  Rr,  Rp  such  that  all  points, 

Wn,  Qn-  Rn,  on  the  grid  lie  within  these  ranges,  i.e., 


W_ 


R 


< W, 


< Q. 


< R 
— n 


< W 

— F 

< Q 

— F 

< R . 

— F 


In  most  cases,  the  size  of  the  required  grid 

(i.e.,  W , W , Q , Q , R and  R ) is  directly  propor- 
S F S F S F 

tional  to  the  value  of  mQ • 

Since  (n^  being  the  first  stage  at  which 

a decision  can  be  made)  is  distributed  normally  with 
mean  zero  and  standard  deviation  /nT*,  a range 

of  the  following  type: 


W 


W 


-6 

6 


/"l  /hw 

/5T  /h» 


*h„  , where 

w 


= greatest  integer 


should  be  sufficient  for  the  grid  at  stage  n^.  However, 
if  the  regions  were  such  that  no  decision  could  be  made 

W 

r 

insure  that  the  grid  is  large  enough,  the  following  range 
should  be  used: 


until  stage  m^ , 


'v  N ( 0 , /m?  ).  Thus  in  order  to 
m0  0 


W, 


W, 


-6 
+ 6 


/m0  /hw 
^0  /hw 


*h. 


(2.6.9  ) . 


I 

I 

I 

I 

I 
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Employing  similar  logic  to  the  Q dimension 
yields  the  following  range: 


Q = min 
s 


Q = max 
F 


where 


J[(^T  - ‘-S’  >/hd*V  [,'V  ' )/hs]*he( 

j[(/qx  + 6/i^  )/hB]*hs,  [(/S7  + 6/SJ  )/hQJ*hB| 


5 greatest  integer. 


(2.6.10) 


Since  R must  always  be  greater  than  the  quantity 

2 2 

l/n(W  + Q ),  the  R points  for  which 


— (w  2+  Q > 
m„  ' 0 0 / 


R_  < 

0 m 

u 

need  not  be  contained  on  the  grid.  Thus  the  range  of  R 

will  depend  upon  the  values  of  W and  Q , and  the 

overall  grid  structure  becomes  that  of  a cone  as  shown 

in  Figure  14.  An  R range  sufficient  for  the 

density  f.  (W . , Q.,  R.)  for  all  i,  is  given  by; 
1111 


I"  1 2 2 

- (Wn  + Qn  )/h 
Lm0  K 3 


R, 


where 


[]■ 


R]*h» 

Rs  * [*99.9  l2mo"2)/hRj’ 


(2.6.11)  . 


greatest  integer. 


A grid  of  this  form  and  size  will  allow  for  sufficient 
accuracy  in  the  calculation  of  the  OC  and  ASN  curves. 


In  conclusion,  this  section  has  presented  a procedure 


for  implementing  the  theory  of  the  previous  sections. 
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FIGURE  14 

STRUCTURE  OF  NUMERICAL  GRID 
FOR  DIRECT  METHOD  IMPLEMENTATION 
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Since  the  density  fMW^,  Qj_/  R^)  can  not  expressed 
in  a closed  form  for  i > n^,  this  section  has  discussed 
a numerical  procedure  which  allows  the  implementation  of 
the  theory.  The  numerical  procedure  consists  of: 

1.  Representing  the  density  f ^ (W^,  Q^,  ) by  a 

discrete  3-dimensional  grid  of  points.  The 
grid  is  shown  in  Figure  14  and  is  described 
mathematically  by  equations  (2.6.3).  The 
quantities  Rs<  Rp , Qg,  Qp , Wg , Wp , hR,  hw,  hfl 
are  given  by  equations  (2.6.4)  and  (2.6.9)  - 
(2.6.11)  . 

2.  "Carrying"  this  grid  from  stage  to  stage. 

The  grid  at  stage  i-1  is  used  to  calculate 

a new  grid  for  stage  i,  which  represents 

the  density  f.(W.,  Q.,  R.).  To  calculate  the 
l i i i 

density  of  any  point  on  this  grid  at  stage  i 
requires  performing  the  bivariate  integration 
of  equation  (2.5.3).  However,  the  integration 
is  now  performed  numerically.  When  the  trapezoid 
integration  rule  is  used,  the  calculation  is 
given  by  equations  (2.6.5)  - (2.6.7). 

3.  After  the  density  of  all  points  at  stage  i 

has  been  calculated,  the  grid  is  then  again 

numerically  integrated  to  obtain  P X,  P x,  P 1. 

AFC 

This  is  calculated  by  the  procedure  shown  in 
equation  (2.6.2) . 


f 
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k 

( 


i 

] 

Since  the  density  at  stage  i-1  is  known  only  at  the 
points  on  the  grid,  the  density  at  points  not  on  the  grid 
must  be  obtained  by  interpolation.  This  can  be  done  by 
three  dimensional  linear  interpolation  as  given  in 
equation  (2.6.8) . 

The  methods  discussed  in  this  section  are  only 
feasible  if  performed  on  an  electronic  computer. 

Appendix  C discusses  a program  developed  to  calculate 
several  points  on  the  OC  and  ASN  curves  for  any  k=2 
SANOVA  test. 


I 


I 

I 

I 

I 
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I 
I 

2.7  CONCLUSION 

This  chapter  of  the  thesis  has  derived  a procedure 
for  obtaining  the  OC  and  ASN  curves  of  a k=2  SANOVA 
test.  The  procedure  is  the  first  to  yield  exact  results. 

Section  (2.3)  involved  the  theoretical  derivation 
of  the  procedure,  which  has  been  summarized  in  Figures  / /L 
and  /v’  of  Section  (2.5).  Also,  Section  (2.6)  contained 
a discussion  of  a numerical  approach  for  implementing 
the  procedure.  Appendix  C contains  a computer  program 
which  calculates  the  OC  and  ASN  curves  via  the 
methods  discussed  in  this  chapter. 
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APPENDIX  A 


POWER  CALCULATIONS  FOR  A FIXED  SAMPLE  ANOVA  TEST 


As  shown  in  Section  (1.1)  of  the  thesis,  the  fixed 
sample  test  utilizes  the  statistic  F where 

Cdi 


E ni  wi  - 


X)  / (K  - 1) 


with 


K n . 


E E lxij  - xi)2/,ti  - K) 


i=l  j=l 


E ni 


n.-1  Y X.. 

j=l 


K ni 


n_1  E E *ij 


i= 1 j=l 


For  a test  of  K means  with  n.  = n observations 

l 


from  each  population 


Fcal  FK-1 , K (n- 1 ) (nX) 


| 

I 


A-  2 


where 


S (Ui  - 

i = l 


M) 


- Ui/K 

i = 1 


and  FK-l,K(n-l)  is  a noncentral  F variate  as 

defined  in  Section  (1.1). 


The  ANOVA  test  is  usually  a test  of  the  following 
hypotheses : 


Hq  • \ = 0 vs.  Hx:  X >_  X 


The  decision  criterion  of  the  test  is  as  follows: 


(1)  Accept  H if 


o 


F < F ) = a 

CAL  K-l,K(n-l)  ,a' 


The  quantity  a corresponds  to  the  acceptable 
probability  of  a Type-I  error. 

The  choice  of  any  two  of  the  three  quantities 
( 6 (magnitude  of  the  Type-II  error),  n,  X')  completely 


determines  the  third. 


A- 3 


The  OC  curve  of  the  test  is  in  terms  of  the 
parameter  X,  and  is  defined  as: 


OC ( X ) = 


Pr  (accepting  HQ  | X = X ) 


Pr  ^Fcal  < F K-l,K(n-l) ,cJ  * * ^ 

Pr  ^FCAL  < F K-l,K(n-l)  ,a  lFCAL  K-l , K (n-1)  ^ ° ^ 


■/ 


K-l,K(n-l) ,a 


£(FK-l.K,n-l,(nX  1 dFK-l.M»-l)(nX*> 


★ 

where  f (F  (nX  ))  is  the  density  of  a noncentral 

K-l,K(n-l) 

F variate  with  K-l,K(n-l)  degrees  of  freedom  and  noncentral 

★ 

parameter  nX  . 

In  order  to  calculate  this  integral  the  noncentral  F 
distribution  must  be  integrated.  This  integration  can  be 
expressed  in  terms  of  an  infinite  series  of  multiples  of 
incomplete  beta  function  ratios  in  the  following  manner: 


OC  ( X ) = 


E 


j-o 


f * i 

[^nx  ]J 


3! 


e jnA  li  (JsOC-n+j,  *5  K (n-1)  ) 


where 


(K-l)F 


K- 1 , K ( n- 1 ) ,a 


K (n-l)  * (K-l) 


(A.l) 


A- 4 


and 

T ( a+b) 

I (a,b)  = 

r(a)T(b) 

the  incomplete  beta  function. 

★ 

Thus  OC(A  ) may  be  calculated  by  summing  terms 
in  the  series  until  the  magnitude  of  a term  is  less  than 
or  equal  to  some  e . 

The  incomplete  beta  function  cannot  be  evaluated 
analytically,  so  must  be  done  numerically.  One  method 
is  that  of  continued  fractions.  The  incomplete  beta 
function' s continued  fraction  expansion  was  obtained  by 
Aroian  (1941)  and  is  given  in  Abramowitz  and  Stegum  (1969) . 

An  approximation  to  the  cumulative  distribution  function 

of  the  noncentral  F distribution  was  given  by  Tiku  (1966). 

His  approximation  consists  of  fitting  the  distribution  of 

F (A)  by  that  of  (b  + cF  > ) ; choosing  b,  c,  and 

vl,v2  V1,V2 

v'  so  as  to  make  the  first  three  moments  agree.  The  values 

which  do  this  are: 

rzz . 

H2-4K3  ^ 


v£  = h (v2-2) 


(A.  2) 


A- 5 


c = (v'/vx) (2v1+v2-2)"1(H/K) 

b = -v2(v2~2)  ^(c-1-X 


where 

H = 2(V]+X)3  + 3(v1+\) (v^+2X) (v2~2)  + (vx+3X) (v2-2) 


and 


K = (vx+X) 2 + (v2-2) (v1+2X) 


so  that 


Pr (F  (X)  < f ) « Pr (b+cF  < f ) 

v1.v2  - 0 vl,v2 


f -b 

= Pr(F  < -2 ) 

vl,v2  _ c 


(A. 3) 


This  approximation  simply  requires  a method  for  evaluating 
the  cumulative  distribution  function  of  a central  F with 
v ' and  v degrees  of  freedom,  which  from  above  can  be 


calculated  as: 


A- 6 


1 


Pr(F  . 

vl'v2 


X)  = 


Iv1X/(v2+v'X) 


(A. 4) 


i 


The  computer  program  contained  at  the  end  of  Appendix  B 
uses  this  approximation  to  calculate  the  OC  curve  of  a 
fixed  sample  test  with  specified  values  of  a,  g and  X' . 
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APPENDIX  B 

OBTAINING  WALD  REGIONS  FOR  A SANOVA  TEST 

As  discussed  in  the  thesis,  a SANOVA  test  is 

conducted  using  the  test  statistic  F of  equation  / 

n 

(1.2.1)  or  the  simpler  statistic  V^,  where 

(K-l) 

V = F . 

n (N-K)  n 

At  each  stage  this  statistic  is  calculated  and  compared  j 

with  the  quantities  Vftn  and  VRn;  such  that  at  any 
stage  i: 

(1)  Hq  is  accepted  if  £ V^1 

(2)  is  accepted  if  VRX  . 

The  regions  V 1 , V 1 , are  usually  chosen  so  that 
A R 

the  Type-I  and  Type-II  errors  are  approximately  equal  to 
the  risks  acceptable  to  the  experimenter  (a  and  8) . 

The  regions  developed  oy  Wald  are  the  most  commonly  used.  . 

For  a given  set  of  quantities  a,  8#  K,  and 

Wald  regions  V n and  v n are  obtained  as  the  solutions 
A R 

of  the  following  equations: 


Ai 


X 
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where  M (X,  Y,  Z)  is  the  confluent  hypergeometric  function 
given  in  Section  (1.1)  and  discussed  by  Stater  (1960). 

These  quantities  are  obtained  by  solving  the  above 
equations  by  a Newton-Raphson  root  solving  technique 
(Carnahan,  et  al  (1969)). 

In  some  cases,  i.e.,for  small  values  of  n,  a root 
does  not  exist  for  the  equations  above.  In  such  cases 
it  is  not  possible  to  make  a decision  at  that  stage. 

The  following  pages  contain  a listing  of  a computer 
program  which  will  calculate  regions  for  any  given  values 
of  a,  6/  K,  XQ  and  X . 


i 


I 

B-3 

I 

| Tables  of  such  regions  have  been  worked  out  by 

Ghosh  and  West  (1967)  for  selected  values  of  a,  0, 

X These  regions  however  are  only  given  for  every  fifth 
stage.  Thus  the  following  computer  program  also  allows 

) 

the  Ghosh  regions  to  be  read  in,  and  the  missing  region 
values  calculated  via  Lagrangian  interpolation 
(Ghosh  and  West  (1967)) . 


and 


1 


* 
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* 85700  FORTRAN  COMPILATION  XV, 3.00#  THURS 

. F He  5 ■ CARO #UNIT«READER 
(FILE  6*PRINTER»UNI T»PRINT£R 

1 r*#r.T,* ...  ... ...  * 

c this  program  allows 

|C  determination  of  fixed  size  anova  test 

Ic  this  program  will  FIND  *_CRITJCAL  ^alue 

C c*o  and  The  smallest  TnTege*  n for  given 

|C  values  of  alpha  and  beta 

Je  If  v<c  Then  ho  is  accepted  and  if  v>c  ho  is  rejected 

c 

c 

IC  

START  Of  SEGMEN' 


DIMENSION  B0UN0(2) .XLIN(2) »REG!50»2) 

Double  “precision  val“o# HYP i#hyp2»hyP3.hypa# valz# vAlsT.F x#xln# auxi 

1 » AUX  2 »XNXT#FXNXT#XEVAL  #FPX 

real  LAmO.LAMI 

common  EPS  

TAU(Z)“l  ( Z-D.  5 )*ALQ4j(Z)  ) -z*(0. 5*  ALQG(6«  283185  ))♦(  l »0/(  12*0*2)“) 
l-(  1 .0/! J60.Q*! Z**3.0) ) )♦! 1 .0/!  1260.0*! Z**5.0) ) )•(!#/(  lbbQ  • *J.l“  ?_»0 
2)  ) ) 

H1!gRN»SS»CP)*2.0*! ( (GRNmI .0)»(SS*CP))**3.0) 

H2(GRN»SS.CP)*3.0*< !GRN-1,0)»!SS*CP)  )*C!GRN-1 .0)*(2.0*SS*CP) )*! < !G 

1RN*(SS-1 .01 1-2.0) ) 

H3!&RN*SS»CP)*((GRN*1.0)*(3»Q*SS*CP))»(((GRN*(SS"1»0))*2.Q)**2»0) 
C0N2(GRN.SS#CP)«( ( (GRN-i . 0 ) ♦ ( SS* CP ) ) **2 . 0 ) ♦ ( ( !GRN*!SS-l .0) )-2.0) 
2*!  !GRN-1,0)*(2.0*SS*CP>)) 

C0N3(GRN»SS.CP»H)«( (GRN«(SS-1 *0) )/! 1 GRN*(SS"1  #0) )»2.0) ( (GKN- 
31 ,0)*(SS*CP) )/(GRN-l.Q) ) ) 

EPS* l . 0 E-8 

IRtAO-5 

IRITE-6 

RE  AO  ( I READ.  1 ) ALPHA.BETA » l AmO.ITaMI  » DEgE 
1 F0RMATC5F 10. A) 

WR I TE ( I R I TE  # 70 1 ) 

01  FORMAT< 1H1#20X#"FIXED  SAMPLE  ANOVA  TEST") 

T~  WRITEURITE.702) 

’02  FORMAT!/ #20X #"*.*.*.*....* *.**... ..*•") 

WRITEURITE.703)- TJEIIF 

r03  F OR MAT!///»24X,"K*"»F3»1»2X." GROUPS") 

READ! IREAD. 713)  SAM 
13  FORMAT ( F 6.2) 

I F ( L AM  1 *0  • 0 .AND.  SAM  .GT.D.O)  GO  TO  21 
WRITE! IR I TE  » 704  ) LAM0.LAM1 

-7-04  F0RmAT(////#13X#9Hh0iLAH0  ■#T6T2»2)!»'*vS,,#2)!.9RhI  » L AmI  ■#F6.2T_ 

WRITE! IRITE.705)  ALPHA. BETA  

705  F0RmAT(//»2uX#"ALPHA  *".F5.2#6X,"BETA 

DO  10  N* 3 » 1000 
SAM*FLOAT(N) 

IF!LAM0*0,0)  GO  TO  5 

H*H l (DEGF # SAM. L AMO)  .HZfiJEGF »SAH#UARU‘) ♦H31  DEGF  » 5TH7C  AW) 

C0NK*C0N2CDEGF »SAM#LAMO) 

E*(h**2.0)/(CQNK**3<0) 

B*( !OEGF  *! SAM- 1.0 ) ) *2  ♦ 0 ) * ! SORT < E / < E"4 . 0 ) )-1.0> 

B*B*0*5 

V*CB/(0EGF-1.0)  )*(H/CONK).( 1.0/ ( !2.0*B)»!OEGF*!SAM-1,0))-2.0)  ) 

C¥CDN3rDEGF75AH#rAFT07VJ 

T 1 ■ ! DEGf *( SAM-1 .0)  )/2.0 
T2-B/2.0 
GO  TO  7 

T1*0#5*DEGF*!SAM»1#0) 


5 
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T2«0.5*CDEGF“1 .0) 

B ■ 1 . 0 

7 Y0«BETlNC(  1.T1.T2. ALPHA) 

F0«((V*UEGF*(SAM-1i0)*C1.0-(Y0*B)))/(Y0*B))*C 
1F(LAM0«0*0)  T0-(DEGFi(TJM-i.0)*n.0-Y0Ty/((DCGr-1.6)*Y0) 
Tl«(DEGF*(SAM-1.0>)/2»0 

HP«M  1 ( Dt  GF  . S AM  * L AM  1 ) »H2  ( DEGF » SAM  # L jffirr*HJTUlGF  #T»M  #T*fl  I ) 
C0NKP«CUN2C0EGF#SAM#LAMl  ) 

EP»(MP**240)/(CONKP**3iO) 

BP ■ ( C DEGF  *( SAM-1 ,0) ) -2 . 0 ) * ( SORT ( EP/ C EP“ A • 0 ) )-l  .0) 

BP«BP*0 . 5 

VP«CBP/(GEGF-1,))*(HP/C0NkP)*(1#/((2,*BP)»CDEGF*(SAM-1.))-2.0)) 
CP*CQN3(DEGF  *SAM»LAMl#VP) 

T3«BP/2.0  

Yl»1.0/U*0^UBP/(DEGF*(SAH-i.0)))*TTFTrr“CF  T7W11  T 

PR0B«BF1 1NCC0*T1»T3»Y1 ) 

~H4»  1 . 0*PET  A 

1 F ( PRUB  .GE.  A 4 ) GO  TO  11 

10  CONTINUE 

11  MRITECIMTE.  706)  SAM 

706  FORMAT!//. 1BX#"RE0UIRED  SAMPLE  SIZE  TS1,»T6  .1) 

GO  TO  13  

C 

C “ 

C * 

C ' 

C 

C THIS  PART  OT  "THE  TTtO GRAM  WILL  CALCULATE  A L AHl  FUR  "A 

C GIVEN  ALPHA#BETA.  AND  FIXED  SAMPLE  SIZE  N 

c - • 

C 

C 

C 

c 

21  Tl«0.5»UEGF*CSAM»l .0) 

T2«0  4 5*  C OEGF  *1  * 0 ) 

Y0*BETINC(1#T1»T2# ALPHA) 

F Q« ( DEGF  *(SAM-l  »0)*U  . 0- Y0 ) ) / ( < DEGF - 1 , 0 ) * Y0  ) 

T1»(DEGF  *(SAM-1 .0))/2.D 

DO  625  L M*  1 # 200 

altlam*o.i*lm  

HP«Hl (DEGF  .SAM. ALT  LAM)  *H2( DEGF . SAM .ALT LAM) ^3! DEGF . SAM .ALT L AM) 
C0NKP«C0N2(UEGF»SAM. ALTLAm) 

EP=(MP**2.0)/(C0NKP**3.0) 

BP«t  tOf  GFMSAH-1  iO)Wrt)»(  SQRT(EP/(EP~4«P)  )*1 .0) 

BP»BP*0.5 

V P » ( B P / 1 0 E G F - 1 . ) ; * ( HP /C 0 NK P ) * tl  , zrr2TfBF7TT0FGr «^rSAH*l  .TJ'Z rOT) 
CP»C0N3l0EGf .SAM.ALTLAM.VP) 

T3»BP/2.0 

Y1  ■ 1 » 0 / 1 1 4 0 ♦ C (BP/(DEGF*CSAM"1 • 0 ) ) )•( ( F0  + CP  )/VP  ) ) ) 

PROB*BET1NC{0#T1VT3»YI3 

A4>1  i 0“bE  T A 

IF ( PROB  .GE.  A A)  GO  TO  27 
625  CONTINUE 
27  LAM1-ALTLAM 

NRITEC IK1TE.704)  LAM0»LAMl 
¥RITE(  TRITE  #705)  AXFHA7BFTA 
MRITE( IhlTE.706)  SAM 
13  CONTINUE 
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This  part  or  The  Program  calculates  the  oc  function 
FUR  The  FIXED  SIZE  test  


WRITE! 1R1TE.707) 

_F  ORHAT !///.20X*"0C  FUNCTION  FOR  THE  TfST") 

WRITE!  IKITE.708) 

FORMAT ( // / > 1 4X»"LAhDA"» 1 Ox»"PROB  OF  ACCEPTING  HO") 

DO  A 0 1 IP0w«l»10 

APLAH«LAHO*l  ( (LAM1*LAmO)/9.0)*FlOAT(  IPUW"1  ) ) 

1 F C APLAh>0.0)  GO  TO  403 

ANOC«BET  INUO.T1  » T2.  YO) 

ANOC-1 • 0" ANUC 

GO  TO  *02  

HP*Hl 10EGF  »SAM.APLAM)^H2(DEGF.SAM*ApLAM)»H3(0EGF  »SAM. 

C0NKP«CQN2! OEGF.SAM.APLAK)  

EP»(HP**2*0)/(C0NKP«*3.0) 

BP*  ( ( DEiiF  • ( SAM"  1 .0))"2»0)»(SQRT!EP/!EP"Ai0))"lcQ) 

~BP«BP*0.5 

VP«(BP/(DEGF-1i  ) )*(HP/CONkP)*(  I ./!  < ♦ ! DEGF  * ! S AM"  1 . 

CP*C0N3(DEgF»SAM»APlAM»VP) 

T3«BP/2.0 

Yl*l #0/( i .&♦( ( BP/ (DEGF*C SAM-1 »0  iT)*(!FO*  CP  )/VP>  > 
ANOC-BET INCIQ.T1.T3.Y1 ) 

ANOC ■!  »D*ANOC 

NP.ITEI1h1TL»709)  APLAM*AnDC  _ 

FORMAT!/.  14X.F5.2.17X.F6.4) 

continul 

MR  I T£ ( IRITE.710)  FO 

FORMAT!///. 16X, "CRITICAL  VALUE  OF  F *"»F7i2) 

CVV*(FO*(DEl»F-l  .0)  >/(DEGF  *(SAM-i  »0)> 

WRITEtlRIU.711)  C V V 

FORMAT!//. 16X. "CRITICAL  VALUE  OF  V^.TrO^y 
READ! IRtAD. 101)  IREG 
FORMAT! 12) 

IF!  IREG«0)  GO  TO  160 

• •»•••••**»*  *••**•«**••*-*  7T*  ******  ****************  ****** 


APLAm) 


) >-2.0) > 


THIS  PART  OF  THE  PROGRAM  MILL  FIND  MALD  REGIONS  FOR 
EVERY  N<NO  ! THE  FIXED  5IxE  TEST)- B Y TNTERPULATJON 
OF  THE  GHOSH  ANO  NEST  TABLES 


CONTINUl 

WR1TEITR1TE.715) 

FORMAT! 1H1 .20X. "SEQUENTIAL  ANOVA  TEST") 
WRITE! IRITE.702) 

MRITE! IRITL.703)  DLGF 
MRlTE(IRITt.70A)  LAM0.LAM1 
WRITE!  IRIU  .705)  ALPHA. BETA 


MRITE(IRITL.70A)  LAM0.LAM1 

WRITE! IRITE .705)  ALPHA. BETA  

WRITE!  IRITE.716) 

F0RMAT(///»20X."THE  WALD  REGIONS  ARE") 

WRITE! IRITE. 717) 

F0RMAT(//*10X."STEP".1GX."L0WER  VN"»  IPX* "UPPER  VN") 
NSAM*IF1X! SAM) 

READ! IRLAD.25)  I.AL1.AL2 
FORMAT! 13. 2F 10. 5) 


->*-><->00000 
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IF£  I .LE.~  NSAM)  60  TO  35 
IC0UNT*1C0UNTM 
I F ( I COUNT  >2 ) 60  TO  40 

35  KEG ( 1 » 1 J *AL 1 
REG(I#2I*AL2 
GO  TO  306 

40  DO  150  INDX*1 *2 
N1SS-1 

N2SS-1 

N3SS*i 

41  rFTREGlM55*INDX)>0)  GO  TO  ^2 

N 1 SS*N 1 SS* 1 

GO  TO  41 

42  N2SS*N2SS*1 

43  IF ( R E G £ N2 SS  * INDX  ) > 0 ) GO  TO  44 

N2SS*N2SS» 1 

60  TO  43 

44  IF  (N2SS>N1SSM ) GO  TO  46  

NlSS*N2SS 

GO  TO  42  » 

46  N3SS*N2SS» 1 

4 7 1F(REG(N3SS.INDX)>0)  GO  TO  46 

R35S-N3LSU 

GO  TO  4 / 

46  L1*N1SS*1  , 

L2-N2SS-1 

IF(L2>NSAM)  L2«NSAM 
S1«FL0A1(N1SS) 

S2*FL0 AT  T N2SS  ) 

S3-FL0A l (N3SS) 

AN*51  *S2*  S3 
DO  140  lNbT«Ll*L2 
SB*»FLO  A I C INbT ) 

Zl»(((AN/SB)-(AN/S2))*C(AN/S0)-(AN/S3)))/(((AN/Sl)“(AN/S2)) 

1 * ( ( AN /SI J*( AN/S3)  ) ) 

Z 2“  ( C ( AN/SBJ“C  AN/SI ) )*( (AN/SBJ"{ AN/S 3 ) ) ) / ( ( ( AN/S2 ) *( AN/S  1 > ) 

2 *( ( AN/S2J-1 AN/S3)  ) ) 

Z3*(((AN/SB)“(AN/S1))*(1AN/SB)-(AN/S2>))/(((AN/S3)»(AN/S1)) 

3 *C C AN/S3)»< AN/S2) ) ) 

REG(INBl»lNUX)*Zl*RLG<MSS»lNDX)tZ2*REG<N2SS»lN0X> 

4 ♦Z3*HEG( N35S»INDX) 

140  CONTINUE 

I F ( L2*NSAM)  GO  TO  150 
N1SS>N2SS 
GO  TO  42 
150  CONTINUE 

155  DO  T56  JKT*1  ANS4W  ~ 

IF(REG( JMF *1 1*0.0)  REG( JMF. 1 1*99999. 

IFCREGt JMF .21*0.0)  REG C JMF » 2) *99999  . 

NRITEt IRITE.301  ) JMF » REG ( JMF  » 1 ) » REG ( JmF . 2 ) 

156  CONTINUE 
MRITE( IRITE»721  ) 

721  form  at  t/ynnurr*  INTERPOL  ATED"! 

GO  TO  445 


THIS  PART  OF  THE  PROGRAM  MILL  CALCULATE  REGIONS  FOR 
TESTS  ^NOT  TORTriNLU  IN  THE  GHOSH  » WEST  TABLES — 
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I 


I 

I — 




i 


296 


29  7 


19  7 


387 

366 


W2*( OEGF-1 .0)72.0  

NS AH*  I F l X ( SAH  ) 

WRITEC IRITE.715)  

WRITE  C Ik  I TE  * 702  ) 

WR I TE  < lHITi»703>  DLGF 

WR  I TE ( IK1TE.7Q4)  LAHO#LAMl 
W R I T E < I N I T E » 705  ) ALPM A , BE  T A 

5 E 

START  OF 

WR  I TE ( IRITL.716) 

WR  I T E ( IkITE.717)  

BOUND  C 1 ) * ALOGCBLTA/C  1 ,0-ALPHA  ) ) 

BOUND l 2 ) * ALOGC C 1 . 0-BET A ) /ALPHA ) 

XLlNCl)'  (2.0*B0UNDC  1 )♦  C L AM  1 -L AMO )77T-270*8OUNDTi  ) ) 

XL  INC  2)*  C2.0*B0UND(2)*(LAM1-LAM0) ) / C -2 . Q*BOUND C 2 ) ) 

H?0 “NTZ«2»NSAM 

ECON*-(F L0AT(NSZ)*(LAM1-LAM0)  )/2.0 
Ml*C (DEGF  * F L 0 A T ( N S Z ) ) - 1 < 0 ) / 2 • 0 

ZCONl-CFLOAl (NSZ)*LAM1 )/2.0  

ZC0N0*(f  LOAT (NSZ)*LAM0)/2*0 

DO  210  I B*  1 » 2 

X E VAL  *0 . 0 

I F ( XLlNUBJ  *GT.  0.0  * AND  • XLlNUB)  «G1.  UQ)  GO  TO  297 

IFCXLIN(IB)  • G T . 0.0)  GO  TO  170 
VALO*  LXPCLCON)  - EXP ( bOUND C I B ) ) 

DO  296  l SR*  1 » 9 
XSR*  -IISK*0.1) 

StAR*  ( XSK/C 1 .0*XSR) ) 
m3*ZC0N1*SEAR 

wa*zcono*sear 

HYP  1 ■ LONHYPC  Ml  .W2.W3)  

HYP2*  C0NHYPCWl.W2»W4) 

VAL?  ■<  EXPCEC0N)*MYP1  ) -(  EXP ( BOUNp C 1 B ) ) »HY P2 ) 

1 F < CVAlO«VAl2)  » LE . 0.0  .AND*  XLTnTIB)  iLT.  0.0)  GO  TO  2TQ 

CONTINUE 

SE AR*0  * 99 

M3*  ZCONl *SE AR 

W4*7C0N0*SEAR 

MYPl*  C0NMYPIW1.M2.M3) 

MYP2*  ' ' CONHYPCWl  »W?»W«) 

VAL?*  C EXPCEC0N)*MYP1  ) •(  ExPC  BOUND C I B ) ) *M YP2 > 

I r C (VAL0*VAL2)  .GT.  0.0)  GO  TO  210 

W3*ZCUN1*0»5  

MA«ZC0N0*0.5 

HYP1*  CONHrPCMl .M2.W3) 

MYP2*  C0NhYP(Ml.M2»M4) 

V ALST*  C EXPCEC0N)*MYP1  ) -C  E Xp C BOUND C I B ) ) • H YP? ) 

IFC  (VALST*VALO)  .GT,  O.O)  go  TO  197 
XLINC IB)*1 .0 
GO  TO  1/0 

DO  386  IFND*10*60  .10 
SEARS*IFND/C  i iO*IFND> 

M3*ZC0N1*SEARS 

n4*ZC0N0«SEARS 

MYPl*  CUNMYPCM1.M2.M3)  

HYP2*  C0NHYP(n1»w2.M4) 

VALS*  C LXPCECON)*HYPl  ) “C  EXPC BOUNDC  IB  ) ) *MYP2  ) 

IF ( l vAl 5T *VALS) ) 387,386.386 

XLlN(IB)*IFN0*5.0  

GO  TO  170 
CONTINUt 
yi  tmmr )•  trwn 


170 CONTINUE 

IF(XLINUB)  » GT  * 0.0)  GO  TO  195 
ItTN TI B ) « XL  I N ( 1 8 ) ♦ XL  N 

I F ( XLlN(IB)  «E0.  -1.0)  XlIN(IB)— 0,5 
GO  TO  I/O 

195  M3«  ZCONlM XLlN( IB )/( 1 « J*XLIN<  IB) ) ) 

W4*ZC0N0*( XLlN( I B 3 / 1 1 »0*XLlH(  IB)  ) ) 

HYP1*C0NHYP< Ml .W2*W3)  

HYP2*C0NHYP(Wl » m2. M4 ) 

Y 1 • W 1 ♦ 1 .0 

Y 2 “W  2 * 1 .0 

HYP3*C0NHYP(Y1»Y2»M3)  

MYP4«C0NHYPC Y1.Y2.W4) 

AUX1«(FlQAT(NSZ)*K1)/(2.0*w2*<  ( 1 »0*XL IN( IB > ) **2.0) > 
AUX2«CfLAMl*HYP3)/HYPl)-( ( L AMO *H YP4 ) /M YP2 ) 

FPX*AUX 1 * AUX2 

RTFI  ■ DLO G T H YP I) 

HYP2*  DL0GCMYP2)  

TXSEC0N*HYPI-HYP2-B0UN0(IB) 

I F ( OAbS(FPX)  • LE . 2.0)  GO  To  501 

5D3 XLN«  7LINC  IB)-(FX/FPX) 

I F ( DAbS(XLlN( IB)-XLN)  .LE.  EPS  ) GO  TO  210 
XINT*XLT*rm 

XLIN(IB)«XLN  _ _ 

SrLN*XINT 

XEVAL»Fx 

GO  TO  I/O 

501  I F ( (XtVAL*FX))  502.503*503 

502  YNXT*  ( XLTNCTB)*XLN)*0.5 

W3*ZC0N1* ( XNXT/C 1 • 0*  XNX  T ) ) 

W4»  ZC0N0*< XNXT/( 1 .0*XNXT ) ) 

HYP  1 ■ CONH'.r'l  Ml.W2.M3) 

HYP2*  C0NHYP(W1 .M2.M4) 

FXNXT*  ECQN*  DLOGCHYPl)-  DL0G(HYP2>  -BOUNQUB) 

rrrrxrVAI“*TXNXT)3  3TF5TZTG750i 

505  XLINI IB)»XNXT 

FX*FXNXT 

GO  TO  507 

5G6 XL7T*X  N X T 

xeval*fxnxt 

507 ITT — OXB5rxUTNtTB7*XDO .VE.  TP  ST  GO  TO  ~210 

GO  TO  502 
zro — CONTINUE 

WRITE! IHITE.301 ) NS L . XL  I N ( l ) . XL  I N ( 2 ) 

— 3tH FORMATUlX*  I2»10X»Fe.4.10X.F8.4) 


WRITE!  IRITE.720) 

720  F0RMAT!//»a0X. "CALCULATED") 


445 


CONTINUE 

STOP 


I 
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START  OF  Sf 

FUNCTION  ZI(X#A*B)  

FN*»7*(ALQG(15t+Atb))**2+AMAXl(X*(A+B)*A«0t0) 

N«INTCFN) 

X ■ 1 #*{A+BJ*X/IA^2*  *T  N T 

ZI«2./(C*SQRTlC**2«4.*FN*(FN»B)*X/( A*2 • *FN ) **2 ) > 

DO  60  J* 1 » N 

FN«N*1“J 

A2N«A»2.*FN 

Z I - ( A2N“2.  > * C A2N- J * *FN* ( FN-B ) * X *Z I / A2n ) 

71  *1 . / U.-CA*FN-1  XT* ( A ♦FN-I  .♦BlOf/775 

60  CONTINUE  

RETURN 

ENO  ' 

SEG' 


FUNCTION  CGAM(A) 


AA»  A 

C AC  »0  • 0 

2 

IF(A*2* ) 2»  6 » 6 

1F(A*1*)4»6»6 

A 

CAC«-2*  + ( A*»5)*AL0GC 1 */A>*( A*l *5)*AL0G( 1 *»1 */( AM . ) ) 
AA-A*2* 

6 

GO  TO  6 

CAC*M«  + (A**5)*AL0Gll»M*/A) 

8 

AA>A*1  • 

C A*2 • 26 V4  89/ A A 

CA«.  525606*  7/ (A  AM . 0 1 1 523 1 / ( A A ♦ l » 5 17« 7 377TAA ♦ C A ) ) ) 

C A* *083333 J3 33/ C A A* . 0 3 3 33 333/ ( A A* *25238095/ l AA*CA)  ) ) 

—• 

CGAM«CA«CAC 

RETURN 

CnD 

f 
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26 


START 

F UNC  T I UM  BETINC( INU»A#B»X) 

INCOMPLETE  BETA  FUNCTION  AnD^TTs  INVERSE 
HARK* 1 FOR  INVERSE  (SEND  OOwN  PROB) 

~T  A B » C 0 AH r* ♦ B7 - C 0 AH ( AT-“CS*M < 6 . 5*  AlOG<  ( A»B  > *4 . 2fi3 1 B5 3 1 ) 

IF(  IND)  10# 10»20  

EP*CAB*A*ALOG(X*( 1 .♦B/A) )»B*ALOG< ( 1 • "X  ) * ( 1 • ♦ A/B ) ) 
IF(X*A/(A*B))1?»12»1<I  __ 

BETINC'ZI CX»A*B)*EXP(EP*«5*AL0G(B/A) ) 

RE T UR  N 

BET  INC* 1 .-ZI ( 1 .-X#B»A)*EXP(EP«»5*AL0G( A/B) ) 

return  

I F ( X-.5)22»22»24 

OZ*ALOGl X ) 

I GO*  1 

AA* A 

BB*B 

GO  TO  26  

GZ-ALOGl 1 .-X  ) 

1 GO*  2 

A A = 6 • 

BB*  A 

X T * A A / ( A A*bb  ) 

CABB«CABt.5*AL0G(faB/AA)+AA*AL0G(li*BB/AA)»BB*AL0G(I.»AA/BB) 

“DO  40  Nt  * 1 » 1 00 

ZZ*ZI(X[»AA*BB)  

0x*CABR*AA*ALQGCXT)»Bb*AL0G(l»“xT)  ♦TLODtZZ ) 
XC*(0Z-GX)*(1*-XT)*ZZ/AA 
““XC*AMAXKXC#».9<n 
XC«AMlNlCXC#»5/XT-.5) 

XT»XT*( 1»*XC) 

IF( ABS(XC)-1.E-6)42»40#40 
~~  CONTINUE  ’ 

GO  TO  ( 44  # 46  ) # IGO 

BETlNC*xT 

RETURN 

BETINC*1 .-XT 
RETURN 

End 
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I 

ai^ni  ur 

FUNCTION  CQNHYP(XF»YF#UF> 

J COMMON  EPS 

DOUBLE  PRECISION  TSUM 
TAUt  AR)*AlGAMA(AR) 

* X*XF 

Y-YF 
U*UF 

PMUL  T ■ 1 .0 
T SUM*  1 « 0 

IF(X-Y)  101*100*101 
100  CONHYP*  EXP(U) 

RETURN 

101  I F l U ) 103*  102.104 

102  CONHYP*  1.U0 

RETURN 

103  X*Y-X  ” 

PMULT*  EXP(U) 

U*  *U 

104  IF(X)  105.102.106 

105  ICHK*-lF IX(X) 

test«icmk*x 

IFtTEST)  111*108  .111 

108  I F ( ICHK-1)  111.10F.109 

107  CONHYP*(  1 lOVU/Y)  )*PMULT 

RETURN 

109  INDX* IChK 

XSTAR.l  .0 

DO  110  N-l.TNDX  ~ 

XST  AR*  XST  AK* ( X*N-1.0) 

T 1 ■ Y*N 

T2*  FLUAT(N*1 ) 

T 3*  FLUAT(N) 

Y S T AR»  ( TAUCY)-TAU(T1 )-TAu<T2) )*<T3*  AlOG(U)) 

T SUM*  TSUM*  (XSTAR*  ' EXP  ( Y STARTS 
110  CONTINUE 

CONHYP*  PMULT*TSUM 
RETURN 

111  OD  125  I T* 1 » 50 

T*FLOAT( IT) 

Tl»Trx 

T2*T*Y 
73*TM  *0 

PS*  ( UAMMA(Y)  / GAMMA  ( X ) ) * ( GAMMA(Tl)  /GAMMA(T2)) 

PF*  (T*  ALOG(U))*  TAU(T3) 

PS*PS  * EXP(PF) 

TSUM*  1 SUM*PS s 

I F C ABS(PS)  .IE  * EPS)  GO  TO  112 
125  CONTINUl 

112  CONHYP*  TSUM*  PMUL  T 

RETURN 

106  00  115  1 T*  1 » 50 

T* “TL0ATTTT1 

T 1 *T*X 
T2*T*Y 

. T3*TM*Q 

PS*TAUtY)+TAU(Tl)*TAU{X)"T  AUCT2) •TAUTTl) 

PS*  EXP(PS)*(U**T) 

TSUM*  T SUM* P S 

IF  ( AbS(PS)  *LE  * EPS)  GO  To  120 
IT5  CONTINUE 

120  CONHYP*  TSUM*  PMULT 

RETURN 
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FIXLD  SAMPLE  ANOV A TEST 


L 


K*2.0  GROUPS 


HQtLAMO  • 0.00  VS  HI  I LAM1  ■ 1.00 


I 

I 


ALPHA  > 0*01  BETA  « 0.01 


REQUIRED  SAMPLE  SIZE  IS  27.0 

PC  rUNCTION  FOR  THE  TEST 

L AMD A PROB  OF  ACCEPTING  HO 


0.00  0*9900 


0.11 

0.8180 

0.22 

0.5793 

0.33 

0.3673 

0.44 

0.2154 

0.56 

0*1192 

0.6  7 

0.0631 

0 . TO 

0.0323 

0.89 

0*0160 

1.00 

0.0078 

CRITICAL  VALUE  OF  F m 7*  15 


I 

I 

I 

I 

I 

I 

I 

I 

I 

I 


xiuncAL  ~muE  or~r“" — orrmi 


L 
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seouential  anova  test 


K*2 , 0 GROUPS 


HQILAHO  • 0,00  VS  HIlLAHl  ■ 1.00 


ALPHA  ■ 0,01 

BETA  * ~&»0l 

The  nald  regions 

ARE 

STEP 

loner  VN 

UPPER  VN 

2 

•0,6912 

-1,1088 

3 

-0,8912 

-1,1088 

A 

-0.6912 

•1,1088 

5 

-0.6912 

42.7986 

6 

-0,6912 

3.5556 

7 

-0,8912 

1.8734 

8 

-0,0912 

r.2850  “ 

9 

-0.8912 

0,9872 

10 

0.0049 

0,8082 

11 

0.0104 

0,6891 

12 

0,0156 

0,6044 

13 

0.0204 

0,5412 

14 

0.0250 

0,4924 

15 

0.0293 

0.4535 

16 

0,0333 

0.4219 

17 

0.0371 

0,3956 

0,0406 

0 • 3736 

19 

0,0436 

0.3548 

zo 

0.0465 

U, 3385 

21 

0.0497 

0.3244 

22 

0.0523 

0,1120 

23 

0.0548 

0,3010 

24 

0,0571 

0,2912 

25 

0,0593 

0,2824 

26 

0.0614 

0,2745 

27 

0,0633 

0,2674 

C-l 


APPENDIX  C 

A COMPUTER  PROGRAM  FOR  k=2  SANOVA 

Chapter  2 of  this  thesis  derived  a procedure  for 
obtaining  the  properties  of  a k=2  SANOVA  test.  The 
procedure  has  been  summarized  in  Figures  12  and  13. 

As  previously  discussed,  this  procedure  cannot  feasibly 
be  performed  analytically.  Section  (2.6)  considered  an 
alternative,  a numerical  implementation  of  the  theory. 
This  appendix  contains  a computer  program  for  obtaining 
the  properties  of  a k=2  SANOVA  test  utilizing  the 
approach  discussed  in  Section  (2.6). 

The  program  is  written  in  Fortran  IV  for  use  on  a 
Burroughs  or  CDC  computer.  Its  implementation  on  other 
machines  may  require  modifications,  specifically  the 
statements  involving  a read  or  write  from  disc. 

To  use  the  program,  the  user  must  supply  the 
following  information: 

1)  k,  mQ 

On  one  card  in  a (3F10.5,I3)  format. 

Note  k is  the  number  of  means  and  should 
always  be  input  as  2;  m^  is  the  truncation 
point . 


0 2 


2)  v,1*  v /,  i=1' 

A R 


'm0* 


Two  numbers  per  card  (V^1  being  the  acceptance 

region  and  V 1 the  rejection)  in  a (2F15.0) 

R 

format.  Any  time  acceptance  is  not  possible  at 
a given  stage  j,  V^-1  should  be  input  as  a 
negative  number.  Similarly,  any  time  rejection 


is  not  possible,  V J should  be  input  as  a 

K 


number  greater  than  10 


10 


Note  that  the  first 


region  card  should  always  be  of  the  form 
1 


V_  = -1,  V 1 = 10 1 0 , 

R 


since  no  decision  can 


be  made  at  this  stage. 


3)  Gridsize  in  an  (F10.0)  format. 

This  represents  the  coarseness  of  the  grid  or 

the  quantities  h and  h of  Section  (2.6). 

Q w 

The  program  assumes  that  h^  = hw.  It  is  best 
to  select  this  number  as  a power  of  2,  e.g., 

0.5,  0.25,  etc.  In  general,  the  smaller  this 
number,  the  more  accurate  the  results  but  the 
larger  the  amount  of  computation  required. 

As  discussed  in  Section  (2.6),  the  most  efficient 
approach  is  to  perform  several  runs,  using  a 
finer  grid  size  on  each  run. 
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The  program  uses  two  random  access  disc  files 
(files  1 and  2) . These  files  represent  the  density  at 
stages  i and  i+1 ( i=n^ , • • • , m^-l) . The  first  file 
is  used  to  compute  the  second  file  as  discussed  in 
Section  (2.6).  The  size  of  these  files  is  dependent 
upon  the  choice  of  the  gridsize  parameter.  However, 
125,000  words  per  file  should  be  sufficient  for  most 
problems . 

The  program  output  consists  of  the  probability 
of  acceptance,  rejection  and  continuation  (P^1,  PRXz  P^) 
for  each  stage  for  every  value  of  X.  These  quantities 
are  then  used  to  compute  summary  OC  and  ASN  curves. 

Currently,  the  program  is  being  implemented  on  a 
CDC  computer  by  Mr.  Kent  Kaufmann  of  Western  Illinois 
University.  The  program  will  be  used  to  generate  a 
brief  set  of  OC  and  ASN  curves  for  several  k=2 
SANOVA  tests. 
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FILE  1 = ST  1 /Mil  *UNI  T«D  I SK 'SAVE*  y9. L OCK 'RANDOM  ►Block  I ng»30»re:cukd=i 

file  2 = ST?/MiL.UNiI *U  I SK  ► S A VE  = 9 y * IOC K * R ANOOM ► BLOC K 1 NGe 30 ► RECORD  = 1 

FILE  lOsHES/MiL.UN*  T«i)  ISK  . S A V E = 99 . L OC  K , R A NQOM  , R EC  l)RD  * 32 

FILE  1 1 = C 1 1 F< /FTL • UU i T * uTs a *SAvT*99*LUCk»nAno0n*BL0CKInG=5*REcoru=6 

FILE  5*C ARO.oNI 1 bRlAuLR 

FILE  6=0UTPUT  * UN  I T =RR  1 NT  LR 

Fill  7 = r>t  BUG*  UNIT  *PK  I NT  t it 

FiLE  8 e T t MP  • uN I T aPM  NTLk 

C 


n 

c 

. C 

I c 
c 
c 
c 
c 
c 
c 
c 


c 

-c- 

c 

c 


SE  yiJNT  i AL  ANALYSIS  OF  VARIANCE 
R».  MIlLLK 

IhIS  pPUuB«M  LAluULAIEs  IhL  AvLkM(,  p sample  NuMhEk, 
mT|j7m7~S  ample  SIaE'ANL)  [JPEpaTInG  CH  Ah  AC  T tR  i S T i C FUNCTION  F UP 
A SEuULnUmL  TLb  I UK  ThE  EuUALITY  OF  K MEANS 

the  Usi  is  characterized  by  a laho-lakI  * anu  rEgIuns 


START 


COMMON  /’LHlu/CA.pA.LR.pK»A.B.C 
COMMON  /Cbl/GP.  Tuw»gnIog»gRIuk 
COMMON  / C B 2 7 JPLOTSTAT 
COMMON  /LH!)/  nC  U Nw  # nC  ONU  ► OS  I R T 
COMMON  /'CB^/  nEjj  (30»  2 > 
coMMfiij“~/rc'B  a /~urr,r /a^-af 

COMMON  /CBo/  I M AX  W • * M I Nn  • 1 M A x (i  • T M I NO 

COMMON  /u«8/  JOIN  I ► iCAL 

Common  / lb  l i / si  okas 

CllMf'O1.  /iblt/  NUMW  t Numu  ► Numk 

COMMON  / CuiA/  XME ah ( 2 ) * XBR 1 . XBR2 , V*K * UgF 

c'o MM JTV~h7  / X S T P • IS u f! 
common  / B 1 b / (iRLGC  l 1 A t i A ) 

COMMON  /CB2u/  RECMAa 
CUMMON/LKR/  1KP1.IRP2 
REAL  l A HO.  L AM  1 


This  is  nllcessaky  for  start-restart 


OOOUOSOO 

OOOCotot 

00000  700 

000UUO(M 

UOOUUVl't 
O00C  1 oor- 
0000 1 1 00 
oooc 1 200 

UOOO 1 300 
OOOU  1 AOO 
UOOO 1 boo 
O.OOO  1 6 00 
00001/00 

0000 1 BOO 

ooooi vou 
0000 2000 
00002100 
Of  segment 
00002200 
00UO2BUU 
00002AOO 
00002SU0 
00002600 
00002700 
0 0 0 U 2 6 0 ( i 
0000290U 
0 0 o 0 3 0 0 0 
0 0 0 0 3 1 00 
00 00  3200 

000C330O 
0000  3 A G 0 

00003b oo 
00003600 


C 

c 


COMMON/HESIAK/nCC  30»2) .ASU( 30} »NTEST5 

COMMON  /pES  I A K / KTEsT  »NuC  » NS  TP  » 1 1 ► 1 2 • I 3 * KRF.C  * IRAC'NPF  lAC'  I KNK 

nrMMrrr:  "/•RrstTFn/  'nprTnR.FRorjAC  .probnk  - prhac  .prqac  .prhnr.prgnr 

CUMMON  /res  I All/  f<VALAt.KVALNR»RACBEb»SPKOAC*KNBEG*SPKUNK 
COMMON  /kESTAm/  wN.uN.Ri. 

LOU  I VALLNCL  l KNbEG • UNKRLG ) 


- ETIPFT  rorw  rRTTT,  VRT^T  TTQ  *TiIS  T Fb  ,~J  - W * 5 rNTRSVTT  * *P  . } / IP  *T  L UA  T(N)>RAD)00003<>00 
1 ) + (((u*SlNt*4b.)-*-w*COSlAb.)i**2.)/U(R*FL0AT(N)*VR)/(2t*(FLUAT(N)u00O3yGO 


2 **A.O)*VR) J»KAD)  )-l .0 

PARAR(Xl.XP*Ul»rtC)=lXC*((uC"(XP*WC/XC))**2.))+(Xl*(WC**2.n 

3 " -((t XP*Wt  J**2  . ]/XC  } 
data  IPlAO* Ik1TE/5*o/ 

EPS*-  I.OE-6 

NPF 1=6 

SINE05-SINCU. 78539R16 ) 

HE  A i}(  10*1)  NlHYS»lH-ST»AOC»MSrP 
NTRTS=N1RYS+1 

rlau(  i rl ad ► i yv ) nTlsts 


OOOOAOOu 
0 o o 0 A 1 0 0 

0000A200 
UOOO A 300 
OOOO A A 00 
0 0 0 0 A b 0 0 
00Q0A600 


OOOOA  700 


tPOOOAVOi 


— c — 


C-& — 


C 

c 

c 


2 0b 

C 

C 

c 

c 

c 

c 

c 

c 

20  b 


20 


C 

C 

C 

C 

C 


Input  to  this  pkCgram  consists  up  lamO.lam  i •i^numbEr  up  means 
AM)  1 nE  I MUNCA I JuN  PulNT  AS  WELL  AS  THE  REGIONS 

dTt  v T i 2~rT T ESt«i  »nTeSTs  ” 

RE  AO  ( I PL  mI>  . 20  5 ) L AMO  .LmMI  ,UL<jF  » mt  p 

f E)  R h a T ( j E 1 u • b • I J ) 

HP(,(  1 • 1 ) = VM  UL  U»  VI  MJK  WHICH  any  v<vi  results  in  acceptance 

PI  1.  ( 1 . 2 ) = V*LUE  1 1 E VI  I UK  which  any  V>VI  RESULTS  IN  REJECTION 


II-  I I IS  NuT  PJSOIULL  IU  ACCEPT  AT  SIEP  1 REotM  )s0>0 
H Ii  Js  Nul  POSSIHLU  Til  PLjLCT  AT  S I LP  I R E o ( I • 2 ) = 1 • E 1 0 

HI  An  £1hlAn*^p6j  (JhEij(JI,1)'PLij(J1*?))*J1=I'MTP) 

K)kMAl (ii lb<uJ 
N U H = II  lullUii  ) “ 1 
DO  2 0 M = J , nuh 
XmEAN(HJ=0.U 

cunt i nhi 

NUMsNUH+1 


A SEARCH  Is  MAUL  Tl)  uETEKmINE  ThL  plKST  STEp  Al 
WHICH  A jLcISUN  iS  PUSsIbl.L 

DU  35  NS  IP=  WnTp  _ 

IP  ( Hlfit  NS  rp»  * ) .LI  • U.U  . AN|)V "HEtjCNSTP**)  •GE.  T.ElUl  GU  Tu  *25 


0000500' 
OOOOS ) 0 
©000520 

00005  31" 
OOOOSpO: 
0000551 
00005o( 
00005CC 
0 0 0 0 5 N 0 
0 0 0 0 5 V ( 1 
0 0 0 0 6 0 0 1 
0 0 0 0 6 1 
0000621  1 
U 0 0 0 6 3 < 1 1 

0 0 0 0 6 « ' 

0 0 0 0 6 5 0 l 
0 0 0 0 6 6 0 
oooofi  7o< 
OOOObOU  1 

00006  VC 
0000700 0 

0 0 0 0 7 1 0 
000072u  ( 
000O73O, J 
OOOU  7 A0l 
0000750'  | 
OOOo  7 6 0'. 

0 0 0 0 7 0 0 f 


2l-> 


3^ 

AO 

20  7 


C 

C 

c 


I SUP=NS  I P 
NC  A L = I Sul<  ♦ 1 
GU  F'l  Au 

C A l i f S I l P P n U b (II C ( N w T P . 1 ) * U C ( N S T P • 2 ) • A S N ( N S T P ) » N S I P ) 

JM  KTPS1  .uT  . 1 TES I . Jit « NUC  .GT.  K(jC) 

1 WH 1 II  ( \ 1st  NS  I P + ( ( Nup- 1 ) *N  T ES  i S ) ♦ ( K T L S T ” 1 ) * N T ES T S * 1 0 ) ) OC ( NS  TP ► 1 ) 
2 UCUjSTp»2)»ASN(NSTP)*NsTP»AlAm.KTEST 
CUN  T I NHL 

HE  A U ( IWlaU»2UT  ) GK  1 L)  SZ 
Purnat (E  10. jJ 

IE  ( 1 T E S I . cl  • K T t S T ) GU  fu  *112 

^TTJw-=XTITDs7 

GM  I 0iJ  = GH  1 USZ 
OHl('P  = T>Hll)H**2.0 

HAl)s(3.O*(GHlOW**2.O  + GRlU(J**2.0))**0.5 

The  u i mmlus! uns  up  the  gh! d are  c«lculatlu 

XVAL=  1 U.0*1 ( lO.A  )**ULGE  >**0.5) 


©Of?u  7 9 o 
OOOOttdl 
OOOOO  1 OC 
00007  7i,i 


00Q0o20 
0 0 0 0 0 3 ' 
0 0 0 0 a a o i 

DOOOflbO 
UOOOttbOo 
00006701 
0 0 0 0 6 6 ( 
OOOOftvol 
0 0 0 U 9 0 0 1; 
OOOGy  1 C 
U0GO92O 


1 A01 
1 A02 


MAxvAl=xvAL*(t?,0«Ui-GP*EI.UAT(ISUR-l))**o.5)  + (UE0P*(PL0AT(ISuR-i;))0000Y3('( 


STlTHFs  MAX  VAL/liRIDR  0000940' 

NUMh= I P i X ( s I UnE ) ♦ 1 U 0 0 0 V 5 0 ( 

VAW=A.J*(ELU«r(ISUH)**0»5)  0000960> 

NUMh=T7 irtx T¥m>7Gh  1 win  *T7 *27? I “ 00 0 0 9 7 ( 

NUMO=( C IP i X C V*K/GKIU0 )♦ 1 )*<*)♦ 1 0000 960 v 


H P C M A X = n J M 0 * N U M R * N IJ 11  W 
V A R = (PluAII 1SUR)**0,5) 

DGP=DEr.E  *ploa  i ( isuR*i ) 

nsth i = i sup 

w’rtte  tth  rn.iAon 

FORMAT ( 1 Hi . 1 OX , "SEouLNT  1 Al  ANALYSIS  UP  VARIANCE”) 
WRI TP( IHI TE  * 1 A02) 

FORMAT(//,20X."THE  IEST  IS”) 
wRITe:UhiTe*1au3)  lamu.lAm! 


000 1 Ou m 

oooioioo 

000  I 0 20 
0001021 ' 
TJX)  01  0 30i; 

0001  0 A (JO 
0001050 
OOOlObOO 
00010700 


| l^uu 

1 405 

I 14  06 

^ 1 0 7 
1 4ov 

I 1*10 
1 « 1 1 

' 

1 4 1 P 


1M3 


2^? 
?u  3 

~ C 
C 

c 

c 

C 


204 

Z 

c 

c 

c 

c 

c 

t 


ft7? 

H01 


FUWiiaT  (/  / *15a*"hITh  K *" » F 2 • 0 ) c_7  00011000 

WKIU  ( TkI  lLtldOb)  00011100 


F llRMAT  ( //*  1‘jx*"ANI)  I HE  FUlLUwING  REGIONS”) 

WRIT!  ( I r.  I TL  * 1 ^06  ) 

F liRn  A I ( 1 ZX  ."S  I LP"  *5x  . ” VN  ACCEPT" *bx *”VN  REJECT") 
UD  lAC"5  IAM=l.MTf> 

I F ( tn  of  1 MM  * 1 ) •Li-  0,0)  Hi(j(  1 AM»  1 ) = “999V.9s» 
w K I T I (It'iTL*l4u7)  IaM*RlG(JaM*1)*REG(IAM»2) 

F 1 1 M ! 1 A 1 ( iJX*iZ»6X*FB*4»6X*F  tt. A) 

Com! i f ; 1 l 


0001  1 200 
000 1 1 300 

0001 1400 

000  1 1 5 I/O 
0 0 0 1 1 01)0 
U001 1 700 

o 0 o 1 1 a o o 
oool 1 voo 


W P I I I (Ii.iTl'IhIO)  IDW  * GK  ILK)  • GH  1 ()K 

F(iP  r ( / / , 1 C>  • "GH  1 Da  = " . To,  i . 3X  , "Gr  1 Dos”,  fo  . 3.  3X*  "Gkl  Ok=".  f 6 . 3 ) 
ht-lll  I T K 1 1 F *14  11)  N J M W • N 1 1 M ()  • N U M K 

FU^'»ilii'X,,,bt/L  . 1 4 OX,  "b  i Zl.  0=".i4.5X."SiZER="*l4) 

*U' 1 I t l I " 1 1 L * 1 4 1 ? ) RlCMAX 

F iiWnAl  ( / * 1 /X  , " | u ! AL  NUMhER  UF  OHIO  PllINlb  UsLU=".lV) 


000  1 ?0  0t 

000 1 ?!  00 
0001??,. 
ooo ) ?io 

UOu 1 ?4  u 
000 1 ?b" 


1 


C 4 L I 0 1 1 i\(l*l*l*0*wn*UN*Ril) 

PRB  1 = F'>h  ( «> : J * 0 * V A R ) 

V AL  UF  = ‘wax  1 U»K  I l)H  »HoSPHUH(  WN  »UN#KN»  1 SllH  ) > 

PKH?=f  'hSQ(  v Mi. UL  * LHjF  ) 

CALL  F'  C » L ( 1 *1>NUmH*l>*WN*OU»KN) 

F'  H H 3 = C H j j 0 l ( PuSPhCJH  L HN  • UN  *RN»  1 SUk  ) ) • UGF  ) 

WR  1 IF  ( hi  1 T L » 1 4 1 3 ) Pi'B  1 *PRriZ*F'RFi3 

F(TrMaT  ( i ?X  • nM  j n ft  Pft(jR  *W»F  15.5*7.  IZX.^RAnGE  OF  ft  PROP  = " » E i 5 • 5 * 

5 > » F 1 '■>  • 3 ) 

*u<  I 1 1 (Ii']TE»2u2) 

F II R I U 1 ( l ,1 1 .30a*" SEQUENTIAL  ANCJVA") 

wt'  1 1 F < I n 1 1 t » Zu3  ) 

F ()  P 1 : a I f / / / * S x * " L A M B u A " • 1 0 X » " M S N " * 10X*"AbN"*  10x*"UC"  * lOx*"PUw") 


UOO  1 ?bf> 
00012/' Oj 
000 1 ?bOO 
OOO  1 ?40i 
OOO  1 3UUo 
OOu 1 3 1 uu 

000  1 3200 
OOO 1 3300 

0001  3 4 o ( 
0001 3500 
OOO 1 3000 
oOoi 3700 
0001 3000 


S(  j\rk[_  p J I N I J>  (JN  TH4  UC  CURVE 
Ai't  CALCULATED  f UR  A SEQUENTIAL  TEsT 
n 1 I H THt  oL  RLul  (JNS 


OOO  1 4 0 0(1 
0001 « 100 
0001^200 
OOO 1 4300 
0 0 0 1 4 h C ( 


Dll  5 „ ,uC  = i * I 0 * 9 
i f ( ►» 1 1 1"  , r,  i . ■ » ;j c ) o u in  boo 
A l A 1-1=1  A : , j ♦ llLAKi-LAMO)/V,0)*FLUAT(U()C”l) 
wR]lF<^*204)  a L A M 

F u k / 1 A T ( i h 1 * JOx  . "L  Artt>DA=  " * F 6 . 3 ') 


F i O'  a ol/Ln  L A M |)  a VAlULS  (IF  MEANl  A NO  MEAN?  CAN  BE 
LA  a l«LcULaTEu.  TnE  i,L  ARL  NLLULu  FUR  ThE  BOOKING 
bil'4/njlll/L  ANU  lu  CAlCuLAIL  CERTAIN  PROBABLlTIEb 

Such  as  I ml  F(h,*.P)  at  The  first  STEP 

a jo  i HH  rHi(Z)  A u[)  PtilUJ) 


SEGMENT 

oOoi  4S0(. 

000  1 4600 
OOO  1 4 70U 
O0O  1 4oO(z 
00014V0O 

00015000 

00015100 

0 0 0 J s 2 o u 

00015301 
0 0 0 1 5 4 o u 
0 0 0 1 5 5 ( < 
uOul 56; 


XMF  A.jf  Nu  1 ) = SORT  ( ( uEGF*  AL  AM  ) / ( Ut(iF“  1 . 0 ) ) 

XI1R1=  X,,i_  Alll  1 j *F  LOA  I ( I suft  ) 

XPP?*XhLmN(2)*FLUATIISUR) 

M C (J  I < ii  = h lx(LliUR*XMtAN(l))/GKlDw)”lF  IxlNUMi*/?*) 

NCOUu  = TF  I X ( T I5UROTMLAIU2T  ) /5R1  DO  ) - TF  I X C NUMO /2  . ) 

J IJ 1 N T = 1 

1 C A i.  = ? 

Cal  l HMU^  ( 1*1  * 1 * ()*TnINW»TMluio»TMlNft) 

CALL  BUljaC  u U M m *NUMO*NUMh  *0  »T  MaXh*  TMAXO*  T MaXH  ) 
n R I IF  ( 7*  il  a X M t.  A N ( l)*XrtEAN(?)*VAR.X»Rl*XHR2 
FiiREATr///.5^*’ffMEANr='"*tri.7,2T,wMLAN?*".t  15.7*ZX.wVAR* 
1 "SML  AN  I *"  . L 1 5 * 7 * 2X  * "SME  aN?«s"  . L 1 5 . 7 ) 

WRIlf(7.o01J  NUMR  ,ixuHO»NUM« 

F (JRMA  I < c uX  . 3 l ( ) 

wrIIf  ( 7 * oo? ) imInu*Tm1n«»imaxu.tmaxw.thaxr 


000  1 5 7i,< 
0001501 

OOO  1 54('( 
0001600' 
OOO  1 6 i Ol 
000l6?00 
OOO 16300 
0 0 0 1 6 4 u o 
00016500 
0001660  u 
00016700 
.T15.7 »2X,oOoi660u 
000 16400 
OOO 1 7000 
0001 7100 
0001 7200 
nnn  \ n/ui 


c-a 

2M  ^T0RMATT-r//'.BT,’"5Tt:p*'.I'0"X"r"pR00._  ACCL‘PT".l  3X."PR0B*  RELICT"*!!**  00017*500 


C 

C 

C 

C 


C 

C 

C 

C 

0 


C 


l " p Run » continue**) 

CALL  FSIlPPRUuC  OC ( 1SUR* l ) »0C l I SUR*2)  , ASN( ISUR > » I SUK  ) 

If  ( K T f 8 f .bl  . I T L i,  I ^Ok.  NUC  . <1  T , KUC) 

1 hR  11  f < II  = (VaUR+T(  NOv-1  ) “NT  EST  S l + UTEST-l  IMiTESTS*  10>  )UC  < 1SUK*  1 ) * 

2 nc  ( 1 S'lR  . 2 ) , ASN(  ISO«  ) • I SUrt  , ALAM.KTtSt 

wR]  It  < 7 , zOd  ) 1 SUR  *IK  USuR*  1 ) »UC  U SUR  »?  ) * ASN  ( ISUR  > 

LbTp=lSur( 


000 1 7 6 OC 


000  1 7 7<n 
00  0 i 7< jOo 


CR= 1 . / I jUH 
PRs  U . 0 

c a=6To— 


000  1 7*uu 
00  0 1 8 0 00 
0 0 o 1 a 10l 


000  1 820' 

I His  pA«l  Of  iHf  PROGRAM  CALCULATES  oOOlnJOu 

f ( v.  N»  gM,  1(11  ) F HUH  l,(  n(u-l).  Q(N-1)»  K(N-l).  Z*  U)  0 0 0 1 0 A C" 

WHERE  t,  ( W ( N“  1 1 » w ( N“  1 ) » R ( N ” 1 ) * Z » 'J  )=F  f ( W ( N “ 1 ) » Q l N “ 1 ) » K t N “ 1 ) )*p(Z  ) *P  l U lUOOlftSUO 

0 0 0 1 8 6 (, 


in  cihjEk  iu  i iNu  the  quantities  uf  imerlst  in 

St  UUCNT  1 al  ANALYSIS*  NAMELY  The  Asn  ANu  UC  CURVE 
1 h t PKlJdAtilLlTY  u I S Tr  1 rtljT  I UN  MUS  f BE  FUUNU 
A ( EVERY  S l C P N 

ImE'J  f H 1 b uibTkloUT  lull  CAN  Lit  InTLgRAILO  T(J  1 J Nu 

The  t-Hn»>MiiL  i flEj  uf  Accepting  »rEjEcTIno  ahu  cumijiulNu  at 

EVERY  STEP 


0001 b70( 

0 0 0 1 8 8 0 O 

0001  ftVOO 
0001  ¥00u 
0001 YlOO 
0 0 0 1 y 2 1 0 
0 0 0 1 ¥ 3 C 0 
000  1 ¥<H)o 


w R IT  t ( H»  77  7 ) 

7 7 7 f (JHHAT  ( JHl  ) 

L)  (J  A 0 0 NSTp*NcAL*MlP 

If  ( MS  TP  ,ol.  NSTP)  01)  [iJ_3V> 

LSf P = NS  i P-1"" 

1 F ( kEMLSIp*!)  . EE.  0.0)  ON  T [j  1J1 

CA=((?.v)*RE0tLSTP*ll)  + 1.0  1/  C2.0*LsrP*RLiilLSrP.lll 
PA=1 , 0/l2,0*LSTp*RL0(LS(R.  1 ) ) 

1 J 1 If  ( K f 0 ( L S I P » 2 ) .i»E*  1 . L o 1 oil  T U 132 

C R = U 2 . 0 « R_l  0 ( >.  S T f'j  2 J ) + 1 . 0 > / ( 2 . 0 * l.  S T P * R L 0 ( L S T (■> . 2 1 ) 

P P = 1 . 0 7 l Z . J * L 5 T~  P * K E u ( L S I P • 2 ) ) 

OU  111  1 J 3 

132  CKsI.O/FlOaIILSTP) 

P R = 0 . 0 

133  PR()BAC  = 0.0 

PRnHNR  = 0 . 0 

PRR AC  = 0 . u 

PRQAC=0.J 

PRR NR  = 0 . Q 

PKQNRs'J • J 

Ufi  1130  1 1 = 1 * .(IJMi 

pR(j  A(.  = > • 0 

FrQ’iTr  = TTj 

UU  1131  12=1*  NlJMQ 

CALL  BHuKUW?*!  *0*WN.l.N»RN) 

1 R A C = 0 
I R NR  = 0 

KVALAC  = i . E 3o 

ITT  CJ  TEXT' 0 J GO  10  11 ZT 

RVALAC=PARAk(CA*pA*uN*HN) 

1121  RVALNP-PARAR(ER*PR.UN»WN) 

P R R A f.  = 0 . 0 
PRRNR-0 « 0 


00019500 

000  1 <7  600 
o 0 o l v 7 o • i 

000 1 vooo 
0001 ¥900 

0 0 0 2 0 0 0 0 
00020100 

O00202OU 
UO 020301 
G002oi«O'./ 
0 0 0 2 0 S C.  c 
00020h0o 
00020700 
0 0 0 2 0 8 G ' 
O002()¥()t 
0002  1 0 0 v 
00021 100 
0002120 
00021300 

0002 i aoc 
00021  Sou 
00021600 

00021 700 

00021  BOO 
0002 1 VOO 
00 02 20 00 
00022 1 C( 
00022200 
00022300 

00022  AOC/ 


00  513?  13=1*NUMR 

ITT  N T P T'S  . G7  . 1 .AhD'.'  PT1H1  .LE.  ‘TJTTTT 

1 CALL  RESUME ( P T 1 M 1 * PT 1 M2 » P 1 I H 3 * 15 1 32 ) 

I F ( 13  * LE  * 1)  Gf)  TO  1 122  00022600 

CALL  HCAl( 1 1 •12»I3»w»WN»0N»KN)  00022700 

11 22  A=WN  _ * 00022800 


1 

KKEC*JRlO  C-9 

000231 ( 

V 

I r ( POSPROtK  WN.ClN.RN.NST  P)  .Li.  0.0>  f.U  TO  1132 

0002321" 

0002331 

1 c 

0 0 0 2 3 4 ( - 

I c 

Inis  i>  1 A 1 Lnf.NT  CALCULATES  ThL  DLN.SHy  AT  POINT  A.b’C 

000?3bi 

c 

AT  NS  T P « Y INTEGRATING  OVER  A TwU  f)  I n t NS  1 ON  AL  REGIUn  IN  ISTP 

00023Y i 

J c 

0 0 0 2 3 7i 

I 

00 0 2 3 "(■ 

P R 0 h T S = u L N S I Si  A »u  »C  * K R E 0 ) 

0002  3 vi 

0002aui 

; 1 c 

U002a  1 ( 

— " ~ 

0002a2i 

1 F ( (.  .LI.  h V h L A C ) LU  1 U 112 <1 

0002a  30 

1RAC  = ]Ral-M 

0002aa< 

1 F ( 1 P a l . o 1 • 1 ) GO  TO  112  3 

0002ab( 

NPF  iAC  = i.OMK“ij+l 

0 0 0 2 A fi  ( • 

R A C h 1 G = l 

0 0 0 2 4 7 < 

SPR()AC  = PkObTG 

0 0 0 2 a c I 

c 

0002  a v( 

c 

0002b(U' 

0 

This  pAkI  UF  f H t PRUgKAm  CALCULATES 

0002b  1 0- 

c 

lot  rK[lu*liil.  1TILS  of  AtcEpTlNG.KEjECIlNG.ANU  CONTINUING 

0 0 0 2 b 2 0 

c 

AT  STEP  NS  TP 

00u2b  3(j 

o 

ThTSl  Ant  ubTaInEu  BT  rEkkURmINg  A TmREEE  dImEnsIuNal  InTEgKATiOO(J25aGi 

0 0 0 2 5 b 0 

c 

this  ihrll  dimension ml  integration  is  is  uunl  numerically 

000  2b<>t 

o 

by  TmkLL  SuCCLSSivL  1 D I M LllS  HJ.V  L INIlgRAlS 

0 0 0 2 b 7 1 ■ 

c 

t a c o i uihLNSiONML  integration  is  oowt  via 

00  0 2 b t ( 

c 

A H POINT ( If  POSSIBLE)  NLwT UN-bRLGUKY  FORMULA 

00  0 2svi. 

— - - - 

~ 1 1 — — — 1 1 ” ‘ "** 

0 0 0 2 6 0 0 

00026  1 0 

ll?3 

PRRAC  = PRRAC  + wLIgHT  ( i«  PI  IAC  , IRAC  ) * PRllllTS 

00026Pf'i 

1 1 2A 

I F ( C ■ L T . K v AL  NK  ) GU  10  1132 

00026  3ii 

IRnk=IRNi<  + 1 

0 0 0 2 6 m 

If  ( I RNc  . G 1 * 1 ) GO  TO  1 1 2b 

000?6bf- 

— 

~~NPFTnR  = hOT1F<-I  3+  1 

0 0 !)  2 6 6 i 

K NR  r)  1 G = C 

000267c 

SRRonR  = Ri<OBT  s 

0 0 0 2 6 o v 

n?b 

PKPNk  = Mm<Nh  + £«l  I GmT  ( NPF  I NR  » I KNP  ) *RRUUT  s 

00026V'" 

1 1 3? 

TMFLl*MlMl*TiML(2)'360U.& 

T M t L 2 = P 1 1 M 2 ♦ 1 i ML ( 3 ) 7 3600 . 0 

— 

— Tmt l i me  m n so o»o  ~ 

nr  IT  t ( 1 u=  1 ) NTKYS.rTLSI  . N()C  , NS  Ip.  JOINT.  I CAL.  I 1.  12.  I 3.  KRLC,  IRAC. 

1 NPI  I AC  . 1 RNi;  » NRf  lNR*A.b*C»PROBAC.RROH NR. PRRAC.PRuAC.RRRNR.RRUNH. 

t R v ALAt. RVmL  nR»  R ACdLq. GPl<0  AC. RNBLg.S  PRO  NR.  TmEl  1 » T mU  2 . T MEL  3 

bl  32 

CON  II  NHL 

If  ( IRAl  .Eg.  01  GO  TO  1126 

0002  7 10 



TT*  TFP**  JT  A rBTTTV  AL  fi  C . T C AL  1 

0 0 0 ? 7 2 < 

AUOA  = AHS ( RVMlmC "R ACoEG ) *U. b*  ( SPRUAC ♦ Y 1 1 

0 0 o 2 7 3 

PPRAC  = GrI0R*PrRAC  + Al3i)A 

0002  7a( 

PR0mC*PkuAc  + RlIGHT(NUM'J.I2;*PRRAC 

00027b(G 

1 1 ?f, 

1 r ( 1 RNk  . lG  • 0 ) GO  To  1131 

0002  7oC ' 

V 1 * T f RRut  A.u.RVALNR*  ICAlI 

00027  7(  t 

— 

ADTjR  =TUTs  ( P vAlT.-R  -RNRuE g J-*  0 . 5*T5PHnTTM  + Tf  1 

0002761 l 

P R R N R = G r 1DR*RrRNR  + AUDR 

00027*;  S 

PRfjNRsPR  jNR* FLIGHT (UUMQ*  I2)*PRRNR 

0002600 

1131 

CONTI  NtlL 

0002c  : o 

PRQNR=PbGNR*GRlDQ 

000262;' 

1 

PRtJAC  sPKU  AC  *Gk  I UU 

0 0 0 2 6 3 : 

PRUD  AT=TT7TTB  AX^TTTTTiH  1 CNrr?rwm7*PHT5AC 

' Ut) 02  R v i 

PHOHNR  = RM(JbNH  + wLlGH  1 ( NUMW  . I 1 1*PR0NR 

0 0 0 2 o b ; 

1130 

CONTINUL 

0 0 0 2 n 6 o » 

pRObNR=RRObNR*GRlDN 

00026  7(  ( 

PROBaC=RrObaC*GRIDn 

o0o2com 

L 

A 1 - - - 

o o r'. 


C-  jLU 

joi nt=i Cal 


I C Al_  *T  NT  ER 

S 

START  OF 

c 

m:  ( n j i p , i j sprijh  Ab  II  I • 

f UF 

ACCEPT  1 Nf, 

a r 

STEP 

NS  Tp 

c 

UC(  NaTP.O  = PKUHAolLl  i 

Y OF 

rejecting 

AT 

STEP 

NS  1 P 

c 

AS>)(nbTP)=RRU0AiU,l_I  T Y 

UE 

Cun  r i n j InG 

A f 

ST  LP 

NS  T P 

A S N ( NbTp ) =PK JuNK-PRod AC 
(|C  ( N S T P * 1 ) = P«  jH  AC 

UC  ( NS  TP  . 2)s  M5>ni(  N jl  P*  1 j -aSN(  Ni>  7 p ) -| JO  ( NSTp  » 1 ) 

WKllLUl  = (,Nb'M'*v(NLIv'”n*NTL6Tb>>lKTt_ST“lJ*NrE:srb*10>)  Q C (nSTP* 1 ) * 

<t  UC(NSTp»?)»AsN(NSTP)  *NsTp.ALAM*KTEST 
)W  If  ( N I r s . o 1 . 1 • A.1P • Pjll M l .LL.  y_.  0 ) _ 

1 ML  AIM  1 1«C  US  I P + ( ( MUC*  1 ; * NT  LS  Tb  ) + < K f ES  f “ 1 ) *N  TES  I S*  1 U ) ) 

<L  nC(NSIM.l).oC(NST,'.ii)*AbNtNbTrJ)*r^ARL»ULAM,LJS^Ai 
WKlTL(7»20b)  NSTp»UO(HSlP»l)*UCCNSrP»2)*ASN(NSTp) 

2ob  H)KMAf(bA,  jboX.^u.  iuO<.L^l).10»bX.[20*10) 

S 

400  CUNT  T NHL  

C ' ~ " “ 


lillS  PA><1  jF  THE  PROGRAM  calculates 

L(N]ALArtjsMVtMAGt-  SAiiPlE  NUMBER  WHEN  LAmuAsAlAm 

AMD 

M ( N]  «l  An  J = l-lt  L»  1 AN  SAMPLE  NiJMMER  wHEn  LAhI)A  = AlAM 
AS  WELL  Ab 

(JC  ( A l A M ) = H K 0 rf  ( M L J L C ri  N G HJjL*Mi)A  = ALAM) 
b ( A [ A M ) = 1 “ u C ( A L A /'I  ) 


OCT =0.0 
A V R = 1 .0 
RQW= 0.0 
T M E.  0 = 0 . U 
U (J  A VO  1 H s 1 » M I H 
AVRsaVR*mSNI 10) 

UCFsilCF  + iJ  C ( i 0 *1  )“  ‘ 

RQWSROW  + UC  ( 1 N » 2 ) 

T L S = I N“i  , 0-  a Vt< 

I F < T I S • l T » U • 5 .UK*  1 1 ML  0 • (j  1 • 0.0  . A wO  * TLS  * (i  T . 0 » 5 ) ) g U T L)  **  V 0 
THEuslN 

I T ( IRS  • g T . 0.5)  Tmll)=I0"0.5 

a vo  CTjn T t o;Il 

WRITE  CIk1TL*2o9)  Alam*  TmEu  . A \/R . i)CF  • POw 

FORMAT (jX.T  b.A»VX.Fo,2.oX#r6.4.8X»F6.A.bX»r6.A) 

CONTI  N'Il 
• ’ ; 7 CONTTN’JL 
CUNT  I N'Il 

m p T Tr (H.yilTJ  ■ ITTPI  VIMP? 

* - • ft  T ( i Ml  .CU  h , "MIS  I AKtb  In  THE0RY".Ifl.5X.Ib) 


- jRRuUTTNCS'T-ALTTID- \ ULLUd  ~ 


* 


■ 


C-ll 


l 

c 

c 

c 

t 

C 

C 

c 

C 


10 

20 

30 


40 

bO 

Si 


ST  Art  T UF  SEGmf.n 


SUHKilllTINL  FblEPP'CjBCPAtC.PKLj.PCON.N)  00036*1 

0003700 

T U I S SlJUrtUu  T 1 Nt  C ALGOL  A TES  00  0 3 7 1m 

1HL  r-rtUd^u  1L  IT  1 L G or  At  C Lp  T 1 NO  * RE  JEC  I 1 NG » OOOJ720 

ANU  tjT  I hU i No  fill'  oTtPs  UOO  3 7 31 

flirt  STEPS  1.  f SS  TmAN  MNu  t(j!)Al.  Tii  TfiE  FIRST  00037*40 

STEP  aT  nMitu  A uLC  1 S 1 Llif  CAN  hE  M A 0 1 oOu  3 7 S( 

ThIS  IS  ACtlMPL  1 i'lti)  riY  MEANS  OF  AN  INFINITE  0 0Qi7t< 

SUM  uF  1 4 C u MP  L E 1 0 ‘-J  L I A FUNCTIONS  00  037  7 ; 

000  3 7*, 


COMMON  7tB4/ULfiF  * A L A M 
COMMON  /CDS/  K E G ( 3 0 » 2 ) 
00  so  r o = i • <7 
T$llM  = 0 . U 


00037V* 
000  3h  ON 
000  3rt  l 0 
00i)3o2t  ■ 


1 


If(  Ih  » 1 0 « 1 .and,  KLb(N»l)  .IE.  0«0)  Oil  TU  30 0003n3o 

I F ( ih  .lU.  2 .An!-).  BEGIN. 2)  .Gt.  1 • E 6 ) GU  TO  30  ' OOo3h4U 

F0=(  ( UF  OF  * ( f LUAT(N)“1  • ))/(!)  EGF“l  •)  ) *REG(N»IB)  00038SO 

U0=1.0/Il.0+(1<ULGF“1.0>/(UEGF*(FLOAT(N7  *1 • ) ) ) *f 0 ) ) 000 JttOC 

h 1 = ( ulGF*  ( I LUA  T ( N)-l . ) )*0.‘j  0003rt7 1 

w2=  ( l)E  GF  - 1 . ) * u . b 0003880 


TSUM  = Ur  I 1 Nt  t Q>  W 1 . H2»  U 0.) 

1 F C A L A fi  . L L • 6.0)  UU  TO  20 
U 0 lo  J Ft  = 1 »JJi 

W?=l ( OF  Of  ”1  • )*0,'j)  + f LJAI  ( J R 1 
T U 1 = ( f i Li  a I (jrt;*AL  nr,  10. s*l  UJAT( 
) - AL  OhI-IA  l F LUAT  ( Jrt  ♦ 1 ) ) 

hit  =r  *p  u u L2  _ 

T s N = 1 SuM4  I u I 


00o3ovf* 
06  0 3 v 0 0 
OO  0 3 V 1 ( 
OOO j V2' 

N )*ALAMl)*AL0GlHETlNC(U»rtl*«2»u0)00j3V3^ 

000  3 V 4 
0 0 u 3 V S C 
U 0 0 3 V C U 


1 F ( TUT  . L t • i.E-06J  GO  Tu  20 

C QN  T I N 1 It 

TSUH  = TSum«EaPI-.S*Fl()AT(N;*AlAMJ 
I F ( Jh  .GT.  1 i Gu  TU  40 

P A C C = 1 . ~ I SUM 

GU  Tl)5U 
PRE  JsTSUII 
Cun  r i nml 

PCONs 1 . "PACu'hRE J 

RETURN 

END 


0 0 0 3 v 7 0 
0003  VO!' 
000  3 y vo 
0004001 
0004010 
00OA021* 
0 0 0 4 u 3 0 
0 0 0 A 0 4 0 
00040SG 
00040c 
0004O  7(, 

” -SEGMENT 


. 


C- 12 


st  ak  r 

UF  SEGMENT 

F UNI  T 1 'In  BL  1 INC ( I NO  * A . 8 * X ) 

0004uouu 

c 

INCOMPLETE  ut-14  F UNO  T I DU  Anu  ITS  iNVtRSf- 

00040VO0 

c 

mARk=1  fO«  I .WORSE  (gEND  DUwN  PKiJH ) 

0004  1 OC  u 

c 

0004  1 1 (ju 

~c~ 

T,:TS  sU«rUNCTIDN  CALCULATES  THE  INCOMPLETE  BETA  FUNCTION 

0004 1 2oo 

c 

ThiS  IS  nLlEuEO  III  LmLoULATE  ThL  PA.PK.PC  AT  f H L FIRST  STEP 

0004  1 31.'' 

c 

A DCoISInh  CAN  BO  MAoE 

0004140, 

c 

0004  1 so. 

CAH  = t0AhiA  + o)“C0A-UA)-CuAH(o>".tj*ALU0((.M-t-B)*G*2b3l0531) 

0004  1 bi.  ., 

J f ( l NO  ) 1 U * 1 U • 20 

0004  1 7C'< 

10 

EP  = LAP*M*AluIjIX*(  l,tH/AJ)+H‘AUUi({  l.-X)*(  l.  + A/HJJ 

00041ai'(. 

I F ( X " A / ( A«d  ) ; 12*  12*  14 

0004  1 Von 

u 

WET  INC  = Al  C X* A »B  >*tXp (LP  + »b*ALDu(8/A ) ) 

0004PO0;) 

RETURN 

0 0 0 4 2 1 0 0 

1 4 

UETlNC=l.-2ill.-X»H'A)*tXH(tP*.b*ALUS(A/bl) 

0 0 0 4 ? 2 0 ( ■ 

RETURN 

0004? JOE 

20 

IF ( X-.8J22* 22*24 

0004240G 

22 

(1 7 = A L 0 G l X ) 

0004280b 

ion=i 

0 0 0 4 2 b G u 

A A = A 

00042X0 j 

BH  = H 

0004 200 u 

Gij  lit  ?b 

0 0 0 4 2 R 0 0 

2 A 

~ 02  = AL'JGl  1 . “X  ) 

0 0 0 4 3 0 0 0 

I 00  = 2 

0004310! 

A A = h 

0004320' 

bH=  A 

0004330 

2<> 

X T » A A / ( M M ♦ B l>  1 

00  0 4 3 4!;. 

CaBh=Cab+,S*AlUG(BH  / AA)+AA*AlU'j!  1 t*Bij/AAl  + RB*ALUO(  1 •♦AA^tJOl 

0004  380:- 

Ul)  AO  Ni,:  1 • i 00 

0004300  : 

Z2  = Z1(X1.Ak.Wij) 

00043X00 

(jX  = LABB+AA*MLo(j(  X T )+HB*ALUG(  1 • *X  T i + ALDGCZZ) 

0 0 0 4 3 6 0 u 

XC=CUZ-uX)*11.“XT)*AZ/AA 

O0U43V0O 

xC=AMAX1(XI*".99) 

00044000 

XC=aUIN1CXC».S/XT“.8) 

00044 1 00 

X T = X T * ( l.+XCJ 

00044200 

IF (AHSCxc)-1.L“6)A2*40.4U 

00044  30 J 

no 

CUNT  I NNl 

U 0 0 4 4 4 C ! 

42 

GU  TO  ( 44 . 4b  ) . I GU 

000 4 4 8 0 / 

44 

BET  IhlC  = XT 

0 0 0 4 4 b 0 1 

RETURN 

00044X01. 

~JTB' 

BrTT'NE  = r.^xT 

000 4400 0 

RETURN 

U00444CO 

ENO 

0 0 0 4 S 0 0 3 

SLGmLnT 


— C-I3 

c Buu,  ( ' 

-£ ‘ L 'L,V**»'V.(J^.Kfv  j 

lHi  S i>U0KiJuT~l,^~-  , , 

C ^ * HIJIIK  «Un,,„ 

c 1 M ] ^ HU  j I j ( I 1 RujT  * OL 

A p,'^j  iN  TmLJ  L,fr*  A hU1N1  /a,  T 

1 Hi  r , t ■ i ^ /,[■<..  ^ N ThL  uKjn  r r 

i/v  frtA/  1CLL‘S5  '^i>K  riLt  F(»'<'’h)  Tu 

MLL  '•"<  ‘ ««,icui:*K  P(JJNi 

Cu^ht;  /ch  j/  0r<i Uw'(,h  IijU’Gkiuh 

I r » 'a,  ' ; S'"  ir ___ __ 

J»Ul<  = lltl  '“"’"'Kl,)  RluK 

11 ' hilThk — .rp-.— j'iu: ,, 

' 0 • 'ss" r o s ’ .. 

^t-IUKlJ  ^ * 0 * /UrtLCHN  " 

? S J M [ S J A 

KtTu^i  *° 

\Nl  hY  J l 'j  j ^ 

M : ; * f- ^ * fu  t )i  I ■j ' w 1 ■ 1 * u,<  * « 

L3s(uw/  , J HCiIhq 

b/CMK «,  _ 

Wt  TuXrr  - — 1 Jda6;  Gu  Tn 

~~  ~ — — — 

J ^ L C S l_  1 t ((  I /*.  I 

KLfUHli  ij*"0fl'')  + ULJ-i  , », 

.tNf,  •* 


ilAld 


Of  SL'fa* 
OOOAc 

OU  0A(J 

OOOas 

OOGAh 

0 I)  {/  i4  y 

0 0 0 A <y 

OOo a y, 

0 0 0 A y J 

- UOOAVA 
OOQA95 
0 0 0 A y 6 i 

000  a y ?( 

°°OAy0c 

_00 0 a y y G 

0°05000 
o Oo  b o J o I 
0°05o^o, 


u V y 

OOo 
_ UUo 
OOci 

UOui 
0 0 0 5 
0005 
00  05 
0005 
UOq'j  ■ 
0 005  J 

000  5, 

00051 


C-14 


START  UF  SEGMENT 


function  PubPi<OH(wv»ov««v.fj)  00034400 

00034500 

c This  IS  a FUNCTION  Tu  DETERMINE  IF  00034600 

C A Hi)I:JT  lb  ALLOWABLE  AT  STIlH  N 00034^00 

c ~ _ 00034800 

PUSH  HUH SK V*l  ( ,<V**2  . ♦ Q V * * • J/FU1A  T(  -I)  } 000  34  VO  o 

]F(  Af<S(P(JSPrtub)  .Lc-.  l.E-4)  PQSPkij3  = 0.0  00035000 

K t.  TURN  00035100 

END  00035200 


segment 


c 

C 

c 


START  of  segment 


FUNCrillrt  PHl(  T»XB A H » S I GJ  00035300 

00035400 

JjIlS  SlJtiF  U>*C  T ION  CALCULATES  THE  NORMAL  DENSITY  FUNCTION  00035500 

0 aoT56mr 

HHI=0.3V{j94^^o*EXPC<5*C((Y"XHAK)/SlG)**i?.))*(l./SlG)  000  35^00 

RETURN  00035800 

END  00035900 

SEGMENT 


START  OF  SEGMENT 

FUNCTIHh  ClUaut  Y»UUF  ) 000  36000 

C ' 00036100 

c This  sij.jf  UNCTIIJN  CAll'JlaTES  The'  CHlSuUARt  DENSITY  FUNCTION  00036200 


c 00036300 

OH  I SO  *U  Y * * ( IDUFA2T.  ) - 1 . j ) ‘TTxR  -7727)  f7(  ( 2.  **fUUF/27  ) ) 000  36400 

1 *uAMMA(RUF/2.U ) ) 00036500 

I F ( ( • t-  u » 0 • u • A N 0 • uQf  • £ J « 2 • 0 ) CHlSu  = 0*5  00036600 

RETURN  00036  f 00 

END  00036800 

SEGMENT 


! 

I 


FUNCTION  DEuSlSt A,8»C.KKEC> 


C- 15 


START 


157 


15m 


159 


this  subroutine  calculates  fn(a.b»c) 

F kOm  <j(A-Z»R-U,R-Z**2“U**2)*P(,JJ*P(Z) 
t,V  rr-TEGi<ATTNG_OV'ER  THE  APPROPRIATE:  REGIONS 
UlMMilN  / L H 1 / oPIUw.uHIQu.gRIOR 
LIJmmiiM  /cB6/  ImAxw#ImINw»TmAxG»TMIn& 

CU-Mflll  'cH//  lstp*iguk 
CUMHIPI  / CHb/  JOINT,  1CAL 
UJ  M m 1 1 N / L B 9 / N I P » R 1 NT  »CuH 
CNf'MDlJ  /CH5/  kLg(  3u»2) 

U 1 M E NS  T J N PulNT(4*9J»FVAL(9)*KlNT(5»9) 

V U L U M t = U . 0 


INVOLVES  SUMMING  ThE  VOLUMES 


This  numerical  integration 
UP  I Hmi'E^O  lose 

u-ODImEUSIuN  = iEAN  2 
/=  <,  01  Mt  NS  I UN  = MEAN  i 

CALL  uhuuuui  A »b  »C  »RLii(  LsTp  . 1 j .rLg  (LSTp»2).NREG*RInT) 

I F ( jRE'-*  • L 0 • 0)  Gu  Tu  2 30 
UU  2 2 y N l P » 1 » N R E G 

CALL  ZRanGH  h7  nTCn  I i R Tn T CnT p » 3 ) » h InTTnI  p » THX , TW]  N 7~ 

U s T R r = U F 1 A ( H I N T ( N 1 P • 1 ) / (,  K 1 1)  R ) ♦ 1 ) * G l(  I U rt 

IF  ( P I NTi  ,(  Ip,  1 ) , L T . 0,0  , A Nl)  , KlNT(Nlp,l)  ,NE.  ( U S TR  T- G H I 0 W ) ) 

1 U S i H i = I K I X ( .<  1 N T l N 1 P • 1 ) /gK  I U * > *G R I 0 W 

lit-  I N = I F i X ( i<  1 N I ( N I P • 2 ) /CR  I !)W  I *GP  i i>  W 

IM  R I Hi  JlP,2)  .lT.  0.0)  uF  i’J=(  IKIxOUNI  (n!P,2)/GKIUw)-1)*GR1U* 
1 F T Jf  r„  .Lu>  •<  I N f ( .M  t P • 2 ) ) tJF  IU  = IJK  IN-(iR  1 UW 

im  if  I n , Li- . us  f h r ) so  in  22.o 
1 F ( t Tr  . t.,  • 1 SUK  ) lilJ  I U I 5 / 

iF(CH-HfiN)  ,l,T.  I M « X U .AND.  (J-USTKT)  .gT.  TmAXU)  GU  TU  220 

I F T ( i)  ”!  U IN)  *lT.  T m a Nn  • A f)  l)  • Cr-ijsirT)  ,|.T.  TmInq)  GU  Tu  2?.0 

i f ( ( ,i-ns  i h r ) .1,1.  T.iiso)  usTrTsu-tmIno 

T.iAxu)  US  I K T = d " Tm  A x u 
T .11  NO  ) U F I N = M " T M I n 0 
r • i m x o ) of in  = b*tmaxo 
In  ) GU  10  22 0 


IF  ( ( m"UG I R T ) .G  f 
1 F ( ( It-UF  IN  ) . L T , 
IF  ( t H-’IF  IN  ) . 1, 1 . 

IF  ( IS  Tu  I . uL  . UF 


u i = u s r i>( 

U 2 = U S T M I ♦(iRiUW 

call  zr<A!ji,rnri,RiNTrNiPiir,RiNT(Nip.  ajs-zmaxi  ,/htnu 

Mil  T N r ( 1 * 1 ) =R  1 ,J  ( N I P » 1 ) 

HO T NT  c 1 ,2  )=  I MX 
PUI nl  ( 2*  1 )=Ui 
P0INTC?*2)sZMAX1 

rij  l n r f 3 * i ) =«  i ,<  r ( n 1 p * l ) 

‘UTISTC  3*2  3 = 1 MIN 
i M rM  * . l u • l m i rj ) j(j  tu  l sa 
pO  I is  r ( '*  * i ) = u i 
ini  i u r ( '*  » c ) = zhini 

C U p = R I ' I I V N l R • J 3 

call  RKjvUlC A,H,C»  VuLU^L.u.A.RUiuT . E V A L ) 

VfTL  0 4E  = V'uUUnE'K 

^ ( APt  A ( P i.)T  ( Hi R » A ) • A“PO  IhT  C 4 »2  ) • rt-PUl  NT  ( 4 » 1 ) *R  1NT  ( NlP  * 9 ) * A'PUInT  C 3 *00057700 

VZJ.tt-R'IillK  j,  i))*(F  <AL(  3i+FVmL(  A)  U0057600 

NS  I UF  S = a 00057900 

Gf)  Til  109  OOOSbOOO 

POINT C 3* l >*ol  l oOosaioo 

»>(Ti»rrrT727s2Trm  00058200 

call  PESVUL l A * rt »C » VuLUMt * 3. J.PO I NT »K VAL > 0005S300 

N$!uES=J  00050900 

ZHEGl=  IF  IXlZHlNl/GRlUa)*GRlOQ  O0o5b500 

ZFfNl-IriXC  ZMAX 1 /gkIDQ )«GRl 00  0005«600 


OF  SEGMENT 
00052900 
00052500 
00052600 
00052T00 
00052800 
00052900 
00053000 
00053100 
00053200 
00053300 
00053900 
00053500 
00053600 
00053Z00 
U0053O00 
o005  3900 
■ 00  05  a 00  0" 
00059 1 00 
00059200 
00059300 
00059900 
00059500 
00059600 
00059/00 
00059a00 
00059900 
00055000 
00055100 
00055200 
00055300 
00055900 
00055500 
00055600 
00055/00 
00055000 
U0055900 
U0U56000 
0 0 (i  5 6 l 0 0 
U0056200 
00056300 
00056900 
00056500 
0 0 0 5 6 6 0 0 
00056/00 
00056800 
00056900 
00057000 
0 0057100 
00057200 
00057300 
U005/U00 
00057500 
00057600 


A 


160 


1 6 0 
1 ft) 

1 1 7« 


1 7 3 


l f n 

l 75 

i t 6 


c a i L 7RAMorroz.nrN‘Tc^rp.3 j *niNTCPTip.aT.zHAx?*ZHrN?) 

ZMIG2=[F  lX(ZMiN2/GuiU0)*Gr<IUy 
/»  I M2=  IF  I X(  ZUAX2/GKU)0  ) *'jWIUu 

1M/h1^  • Ci  I • _0  • 0 ) ^U£(»ga([  KiX(ZmInZ/gK1UW)  + i)*uHIL)W 
1 1 ( ZmA  *<L  ~.l  I • 0.0 ) LV  I N2=TlF  I X(  ZMAX2/6HiOW)*i  )*&RfttM 
Z H F G = HMAX  1 ( lBLgI  » 4HLG2  ) 


WWW JOUWU 

00058900 
00059000 
00059100 
00059200 
— 000  59 J0  0 
00059400 


zf  i m=  i^ilru c zfi m . <.f  102 ) 

I F ( /hfu  . uL  . ZF  I N ) 01)  I 11  1 97 
1 F ( 1 bTp  .tu.  1SUH)  GO  10  160 


| F C t A “ / L;  L G ) 

.or. 

T M M X . 

ANN.  (A-ZFIN) 

. g r . 

TMAXrt ) 

Gt) 

Tn 

1 v 7 

1 f ( 1 A m7a LG ) 

• lT  . 

T rl  L N 9 . 

ANU»  (A-ZFIN) 

• L T»~ 

T M I N H ) 

GU 

To' 

i *7 

1 F ( ( A - / V L G ) 

.l  r. 

r M i N w ) 

ZbEG=A-TMAXrt 

IF  ( { *"7uLG  ) 

.lT  . 

TM  1'IW) 

ZttEG=A-THlNW 

IF  ( ( A-/F  IN  ) 

• u T • 

f -l « x n ) 

Z F I N = A - T M A X W 

11 ( ( A-/F  IN) 

.l  r. 

1 M 1 N H ) 

Z F 1 N = A - T M 1 N H 

I F ( z u l ft  • G L • 

ZF  IN)  till  TlJ 

197 







_ 

z 1 n r = z h l u 

*1  = 1 1 rP,j‘j(  0 1 * 1 1 N r ) 
r2  = I FPPu‘j(  U2  >L  I Of  ) 

iKZnT  .ML.  <-HLU  .*MD»  ^ I N I «UL.  ^IN>  GO  lU  160 
/OF  1 =/>»!  1 2 

NPF  1 = 1 

1 F C Z I N I .NL*  ZhLG  • UP  • U 1 «nE.  tJSlPT)  uU  TO  17  4 
UUF  U = U 1 
Z H F U = Z M a X 1 
F UTiisF' Vml  ( 2 ) 

CUP  = 9 I M I ( N l P • 4 ) 

1 1 ( ffS  I uLb  . L 4 . J ) Wl  1 U 17  3 

PiVrVrT? 7iT=Pin n t ( 4 . 1 r 

PUI  ft  1 C 2 * 2 ) =PCJ  INT  ( 4 • C 1 
FVAL(2)=FVAL(4) 

OH  III  >76 
Pll  I U I ( ? * 1 ) *U  1 
PUI  J I ( ? • <L  ) = Z M i M 1 
F v M f2T=7  V AfL  1 3 ) 

ill  Pll  r M F ( J.  I > .ML.  u 1 .UP.  P(l  INI  (3*2)  .ML.  7*INl) 
1 FVAi.  (P)  = TLKPu5(Ul.4MlNl) 

1 I-  ( POlulCZ.l)  .ML.  Ul  *UP.  P(J  1 M T (2*2)  .NE»  ZMAXl) 
✓ F nil  = TtF(Plj5(ul.ZMAAlJ 

OIJ  I I)  1 7 6 

I F ( ZIN1  « uL  • ZULG)  00  10  I?5 

POI MT ( ? » 1 ) -UllF  L 

PU] N I C 2 . 2 ) = ZbF  L 

F V A L ( 2 ) = F b F L 

OOH=K1MIINIP*4) 

OIJ  111  17  6 

p')rif(?»D=uuF  u 

POI  0 I ( 2 » 2 ) = ZUI  U 
FVALf  2)=F0FJ 


00059500 
00059600 
00059700 
00059800 
00059900 
00060000 
00060100 
00060200 
00060300 
00060400 
U 0060500 
00060600 
00060700 
00060800 
00060900 
0006 1000_ 
o006'l  100 
00061200 
00061300 
00061400 
00u6 1500 
0006  1 600 
00061 700 
00061800 
0006  1 900 
00062000 
00062100 
0006220 0 
0006  2 3 0 0— 
00062400 
00062500 
U 0 0 6 2 6 0 0 
00062700 
00062800 
00062900 
00063000 
0 0 0 6 3 1 0 0 
00063200 
00063300 
00063400 
00063500 
00063600 
00063700 


ZI)F  f=/M*x2 
CIJRspI’IF  ( N I P » 3 ) 
l‘l)  I MT  ( 1 » l )*U2 
poinrrTTZTsTDTT 
pu 1 1* r ( u i i=o2 
pm  IT  ( 3. 2 J = Z IDT 


00063800 

00063^00 

00064000 

uO06<ri  Otr 

00064200 
U0064  300 


F V A L ( 3 ) s Y 2 
Pll  I NT  ( 0 • 1 ) =U  1 
Pll  I NT  ( 4 , z ) =Z  1 i)T 

F V A L T 'll  =n 

Mb  I OF  b = 4 

CALL  RFSvOLC A »B»C» VOLUME •USrDES»NPFl » PO 1 NT  «FVAL  3 

IF ( /INI  .ML.  ZHLG)  GU  lU  177 
UHFL=PniMT( 1 ► I ) 


00064400 

00064500 

00064600 

aOuft  <rTTnj~ 

00064800 

00064900 

00065000 

00065100 


l 

I 


I 


f 


I 


1 \J  • k-  *■  i 

1 

GU  r 0 17a  C- 17 

00065400 

1 i n 

UBFU  = PUi,iT(  l*l) 

U0065500 

ZHFusPlim  C 1 *2  ) 

00065600 

i 

KHFusFVml c 1 ) 

U0065ZOO  j 

1 1 7 6 

Vni.UMK=VULUMt.*-(iHll)w#GPIuQ*l  • 5 * ( 1 *0/6,0)  *(  Y1  + Y2) 

00065600 

IFIZInT  *lG.  rriNJ  Gu  TO  ZOO 

OOT)65VOO 

GO  TO  1*0 

00066000 

1 100 

VULUML  = Vl)LUnt.*’C  1 *0/6.0  )*GKlOO*GP  10**3. 0*(Y1+Y2) 

00066100  i 

* 1 7() 

z i n r = z i ih  r + u<<  iuo 

00066200 

I F ( Z I 0 T .Ll*  z F I N } uU  To  170 

00066300  1 

I 

GU  li|  2uj 

00066400 

1 1V7 

1 f ( ( 7 f’ m x ? >Lu  < L M I k 2 ) • A N u • 02  • t ij  • uF  i N ) GO  T (J  ZGf 

U 0 0 6 6 5 0 0 ' 

P 0 I N T ( 1 * 1 ) = 0 1 

00066600 

1 

Pi)  I N T ( 1 »Z)  = ZMmX1 

00066700 

| 

PuINT(?*l  ) = u2 

00066600  | 

pn  I o r ( 2*  2 ) = zmmxz 

00066700 

PLI  I 0 f ( 1*  1 )=ul 

uO 067000  1 

j 

poiorc i»2)=zm!ni 

0O06Z 100  a 

p 11  I -|  1 ( '*  * 1 ) = u2 

00067200 

PUIori  '*  * 2 ) = Z n l N 2 

00067300  i 

Cop  = wlOI ( N IP • J ) 

00067400 

CALL  W t G V 0 L l A * H * C » V 0 L U M L • 4 » 4 * P 0 l 0 T * F V A L ) 

00067500 

VOL  UMt  = V u L Ofit  i- 

00067600 

2 ( APE  A ( pInT  i NIP  * 4 ) * a“P(J  I 0T(  4 * ?.  ) *H"PU1NT  ( 4 * 1 ) *K  InT  ( NlP  * 4 ) * A"PQ  TnT  i 3 

.O006  7700 

i 

52  ) * U-P(l  1 NT  c J * 1 ) ) * ( F V AL  ( -1 ) ♦F  \/AL  ( 4 ) ) *0  *5  ) 

00067600  ! 

UHF  U = U? 

00067700 

ZtiFu  = Z‘i«X2 

00066000 

( H F lj  = F '/ml  ( Z ) 

00068100 

UUF  L =0 

00068200 

zhfl  = /mi;i2 

00068300 

F HFL  =F  -/ml  ( 4 ; 

00066400 

200 

U 1 = U 2 

00068500 

J2  = U2  + 'irt  1 0 rt 

00066600 

Z(iFg1=TolG2 

00068700 

ZF  I 0 1 =ZF  1 

00068600 

/MT’i  1 =TMTM2~‘ 

00068900“ 

Z M A X 1 = Z Cl  M X 2 

O0069000 

I F ( o?  • L t • OF  IN)  ol)  r (J  tf>0 

00069100 

201 

C A l L / P A N 0 L ( rt  1 N T ( N I P * 2 ) » K 1 N T ( N I P » J ) » 1 U N T ( N I P » 4 ) . T P X » T M I N ) 

00069200 

P 0 IN  T ( 1 . 1 ) = N I 1 T ( N I P * 2 ) 

0006*300 

Pi)  INTI  l * 2 ) = IH  A 

00069400 

PornTrz»iv=ur"  "" 

00069500 

P0fNr(2*2)=ZMAXl 

00069600 

POIOTC  1*  1 ) si<  I 0 T ( 0 I P * 2 ) 

00067700 

PU INT( 3*2  ) = i m N 

00067800 

if  i rix  *lq*  f ii i n)  g«j  to  2iv 

OO069V00 

PO  l 0 r ( '*  * l ) ay  l 

ooozoooo 

POT’lTC'WJaZ-fTNr- 

ooo/*oioo 

C J P = H I N 1 l N 1 P • J ) 

00070200  • 

C ALl  <F j vOLl A.O.C. V JL  (Hl  *4 .4 .PO InT.FVaL  ) 

00070300 

V OL  OIL  = v Ol.iJilL 

0 0 0 7 0 4 0 0 

2 C A P L A « 1 )TCblP*4)*A“POloT(4*2)*ri”PUlNTlA*l  )*PI  iT(NIP*4)*a“PuINT^3 

.00070500 

52)»6~P'’UlT  ( J*  l ) ) * ( F v A L l J)+FVAL(4)  )*U,5) 

00070600 

GO  TO  TZ?  " ’ ‘ 

000  707^0“ 

2 l '4 

pi)  i o r i ) * i ) =u i 

00070800 

pome  i*2)  = zm;ni 

00070900 

call  *lF  6Vi)LlA*B*C»VULUMt»J*J*PfjlNf»FVAL) 

O0O7 1 000 

GO  T 1 1 22  7 

00071  100 

l >20 

UlN  1 =(  i<  1.1  T(  niP  *2)  “K  1 N T ( NlP  * 1 ) ) *.5+H  I N T ( .4  IP*  1 ) 

00071 200 

rj  t c=  r 

000  71  300 

CALL  Z,'Mi|GLlUiNT»rtI'«T(NiP»3)»KlNT(NlP*4)»ZX»ZM) 

00071400 

221 

ire  T 'IX  . FO*  IMIN)  GO  Tu  222 

00071500 

NSI0ES=4 

00071600 

POlNTC  1 *1  )sk1nTINIP**JTCI 

OOO  7 1 700 

(>0071  MOO 

C-18 


P U 1 N I ( 2 • 1 ) = U l N I 


P07IjTr?V2WX 
P JINK  K 1 ) = iUNK  NlP»t)TC  1 
P 0 I N 1 ( 3 » 2 ) = I M 1 14 
_PU  I N K * » 1 ) * U l NT 
POINT 

cu«=t<  niun-o) 

CALL  HCsv()LLA»H»C*VGLt)ML»NSiDES*A.PUiNT  * L UAL) 
VOL  UHL  = V jLUnt.+ 


¥ V JL  V"  i • UU  U"i. 

P ( Al't  A ( P 1 .<  U w 1 I'  » A;  * A “Pi)  I .4  K 4 * 2 ) . t)“PU  1 NT  l A ' 1 ) » H ] N 1 l N I P » A ) * A “PU  1 N I ( ! 

bp;.h-H'U.mj.i))*CruAL(3)+FVAL(4))*0.b)  _ 

GO  111  ?<^b 
22?  NSIUFS=J 

pdint (i.i  )=kinT(nip*ntCi 
PU  I N I ( 1 * 2 ) = I 1-1  x 
POINT  ( ?»  1 )*=ulNT 

POINT  (?.<?)=  

PlJ  I NT  ( 3 » 1 ) = Ul  N f 
PU  I N TJ  3 ,_t  )j  L H 

CALL  PFi>UOL(A»B*C'VULUML.NSU)LS*3»PUlNT#f  V AL  > 

I F ( N T C .GE.  2)  GO  Tu  2?'* 

CALL  ZNangUkiNT(N1p*2T»KInT(N1P»3)»RIN1(NIP»A)»TMX*TmIN) 
NTC=NTC+1 


22  3 


22V 
2 30 


GU  Tu  2c l 

CUNT  I IJIIL 

UENbT  S = VIJLUhL 

w P I T t ( ILALSM<LC) 

H t T U »'  '•  1 

ENO 


VOLUME 


UULU  1 V O 

0 0 0 7 ? 0 C 
OOo  7 2 1 0 
000/22* 
U0(>  / 2 3 0 
0 00  7 2 a ( 

0 0 0 7 2 b l 
U 0 0 f 2 1( 

0 0 0 7 2 7 f 
PU  1 N I l 3 » UOO  7 200 
0 0 0 7 2 -i  C 
U0O/3UO 
0007310: 
000/ 3 Pi . 
0007330 
OOo  7 3 a (m 
_ 00073501 
OOo  7 360< 
000  7 3 70' 
OOO  7 3t>oi 
0 0 0 7 3 v 0 ( 
0007  aUGi 
OOO  7a 1 0( 
OOO  ’ A2('t 
OOo  7 a 3oi 
o0o7aaoi 

()  0 0 7 A b 0 ( 
000 7 a to 
0007a7(.( 
SLGmLnT 


STAHT  OF  SEGMLf T 


^ UNC  T I On  CGmMl  A ) 

OOOA6700 

c 

000A6B00 

c 

This  suokuuTInE  is  nLTuEO  fuk  The  incomplete  beta  Function 

C ALCO00Afoy(.(; 

c 

0 0 0 A 7 0 1 1 (< 

A A = A 

OOO  A 7 1 (iii 

C AC =0.0 

0 0 0 A 7 20' 

1 F ( A“?  . )2»6>a 

OOOA  7 3<u 

c 

]F(a-).)a»6*G 

OOO A 7 AGO 

A 

CAC  = -2.»(A  + .5)*ALnGli.+i./A)  + (A  + 1.5)*ALUi>(l.  + l,/(A-M.)) 

0 0 0 A 7 b 0 0 

A A = A + 2 • 

OOOA  7bO(, 

GO  TO  n ' " ' ‘ 

OOOA77(k 

6 

C AC  = “ 1 •♦(A+.b)*ALUGl  l.  + l./A) 

0 0 0 A 7 o i < i. 

A A = A ♦ 1 • 

OOOA  7V0! 

B 

CA  = P.?7>*ABy/A* 

OOOAbOOt; 

CA=.t>25bu6A7/iAAM.0U5P3l/(AAM.Sl7A7j7/(AA>CAl)> 

OOO  Attl  0(. 

CA=.OM3J333JJj7(AA».03333333/(AA+.25296oV5/(AA+tA))l 

OOOAHPOO 

CGam=C a + CaC 

000AH300 

KETuhN 

OOOABAOO 

END 

oOOAHbOf) 

SEGMENT 

c-j.y 

Subroutine  ubuuNu  t a»b*c»van*vRn*nreg*RInT) 

COMMON  XCB7/  NbTP 
COMMON  /CR  1 0/  CA.PA»CR«PR 
CUMMUN  / C H i 1 / SiNEAb 

uiMtosTuN  hTT.t  (5  rs  T 

This  SUBKUuTInL  CALCULATES  The  INTEgkaTIUN 

LU-ITs  U I u » ANu  ALSU  UEIEHmInES  Tut 

NUMHlk  Ul  INTEGRATION  regions  anu  type 

so  As  To  MLLUrt  l)  E T E R h I N A T 1 u N OF  The  Z RANGE 

ImLSL  ARC  <F  L|)E()  To  uU'iaIn  ThE  1)EnsI(Y  riW«0»RJ 

N Fuu;v,  1ml  IJENSIIY  A I STFP  N“1 

lot  ruLLUhiNG  COuL  IS  EmPLOYlL) 

1 = R I J L C 1 Ul><  Ll.LlrSL  LUnt.R 
P = R(  jEC 1 I UN  El  l IPSL  UPPER 
J= ACctP  1 ANcf  ELLIPSE  LUrER 

a •- a ( t l p 1 hnc l III  apse  upper 

b = C I n C L L LuwLR 
6 = C I R C L L UPPER 

R1NTil*.U=  UPPER  / CuKvE  ( LUwER  w) 

KJNT(2.A)=  LUWLR  1 CURVE  ( UPPER  l.) 
ItKF;2(XCrt,XA.Xb»XPR)  = (Xb*(XCR+A»)+XA*XPR)/l((XCK+ 
1 **2.0  ) i 


IkKKP(XCrt,XA.Xtl»XPRI=  ( X b * ( XCR  + 1 • )*XA*XPR)/C  ( (XtR+1  •0)**2«U)*(XPP 
l **2.0  > ; 

(J  I S C R ( XL  K * X A «XH  •XPK*XC)=  SuRT((  TERM*! XCK  »X A »XB  »XPK) **2.U) "(((  XA** 
1 2.0)-UXtR  + i.U)*(XA**«;.0*xH**2.U-Ac)))/((XpR**2.)-((XtR  + l.)**2. 


2 ) ) ) 

I F ( VAN  . LL • u • J ) 

UA  = C-A**Z.”ri**2.+ 

b ) ) / ( C A + PA+ 1 . ) ) 

I F ( V H N . L E . u . 0 ) 


. J ) UU  T j b 

2.*((.5*((A  + rt)**2.)*'VSrP)/(NSfP+lO)* 
) ) 

.0)  GO  fu  7 


i * * 2 . ) * N S T p ) Z C N S I P + 1 • ) ) 


SIAKI  OF  SEGMENT 

00 0 7 a 600 
0007A900 
0 0 0 7 5 0 0 U 
0 0 U 7 b 1 0 U 

~*U0o7b2uo 

U007530U 

O0u75AOu 
OOOZbbOO 
UOOZbfaUR 
AT  STEP  U007S7O0 

0 0 0 7 5 n C 0 
GOu  7 5 vnu 
U0U7  6UUG 
00076100 
00076200 
00076300 
000  7 6 A 0 0 
0 0 0 7 6 b 0 u 
00076600 
00076700 
• 0)**2.U)-(XPP.  0 0 0760  0 0 
00076900 
**2 . U) "( ( ( X A **  00077000 
“(<XCR+1.)**2.  100077100 
000 772UO 
00077300 

(( •5*((A"b)**2.00077A0U 
00077b0u 

00u77b00 
0 0 0 7 7 7 0 0 


. b * 1 t A ” H ) * 

* / . 0 ) ) / ( C »<  ♦ ♦ l . ) ) 

00077O00 

• L E « U • 0 ) 

\j  U f J 0 0 

OOU  7 7R0U 

. L 1 • u . 0 ) 

vi  | T y f U 

0 0 0 7 6 U 0 0 

. L L * u . J 

• A i)  • JA  • L L • 0 • J J 

r,u  fu  15 

0 0 0 7 6 1 0 1> 

• y.L.  U.O  . 

A iju  • Ji<  • (j  1 • 0*0) 

GU  iu  GO 

0 0 0 7 n 2 0 u 

I r ( V A N • l E • 0 • 0 ) 0u  (J  GU 

1 F ( V r N .LI*  u • 0 ) ^1  Ty  7 u 

I I ( UR  • L L • u • J « a • « U • ua  . L l • u . 0 ) Ci  i J Fu  15 
1 F ( UA  •l.C*  0 • 0 . A N 0 • UR  • G I • 0*0)  (ji)  I U GO 

U R 1 = S J"  I ( ( UR*NSTP)/l NSTp+1 , U ) ) 

UR2  = MjR  I IUR7  ItK  + PK+l  • U ) ) 

U A 1 = SwrtT l lUA*NSTp)/( NsTp+1 ,0) ) 

UA?=S0R1  lLIA/(k.A*PA^l»0)  ) 

HA=l  SlutAb  *(  A + b)*NSTP)7(ilSTP*l  .0) 

" H R = ( S7T1ET5  ~ ~*T AVbT*  n S TP 77 T N 57P  ♦ TTO  j 

TKA  = (sInEA5  *(A“[|)i/(CA*PAM.O) 

TKR=(  S I m L 4 'j  *(A-b))/(CR*PK+1.0) 

CHK=.b*U(A*ti)*NSTp)**2.0>-NSTP*(NSTp«-l.)*(A**2»'fd**2»-c) 

jF(CHK)<;u*lui»10 

TL0t=((CHR“HA>**2.)7iuRl**2»)j+((TKH"TKA)**2.)/(DR2**2.)  " 1 • 

irr  TEnr-TGi  ,-oroT"  r,u  td  60  * 

TLflL  = ( ( l rtA-hR  ) **2.  )/  ( OU  **2.  ) )♦(  ( TKA-TKR  ) **2.  )/(  1)a2**2,  ) “1. 
TSPlL  = C ( Cha-mR  )*•?.  )/( 0A1 ) )♦( ( TKR+UR2-TKA  >**2.  )/C0A2**2. ) 
1F(  Tide  .LI.  0.0  .AND.  T SPEC  .of.  0.0)  GU  (II  20 
NR r 0=0 
RE  T URN 

CDN  = Tnrcr.2(Ci<*A*13*T’R) 

UUAO  = UlSCR(CH.A.B.PR.C  ) 

UNLR  = Cnn-UUAl) 
unuksChk+uuau 
OUAU  = r)ISCR(cA»A»B*pA.C  ) 

CUN*TERB2(CM»A*b.PA) 

"TiTil  A = C 0 !>.  - ULI A rr_ 

UNIJA=COnaOUAU 
IF(CMK)  jO • 3 J * AO 
NRF 0= A 

K I NT ( 1 • 1 )*b“tJULA 


00076300 
000  7 a Aul 
00076500 
00o7  66U0 
000  7 8 7 0 U 
“TV0076800 
u0u7bvuu 
00079000 
u007910u 
0007R200 
00079300 
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00079bC'U 
’1 . 00079600 
0007970U 
00079600 
0007990U 
000800GC 
oOooo  l ou 
0 0 0 6 0 2 u 0 
000 00 300 
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OOOoobUO 
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HINT  ( I *4  J«I  . 


ooool 300 


K I N I (2*1)  = b“UHU A 
K I N 1 ( 2.2 ) *B*UNL A 
HINT  ( ?.  3)  = 4. 

RINT  (2***  )*2» 

R I N f ( 3 • 1 ) = l<  1 N I ( 2 » 1 ) 

H I N T ( 3 . 2 ) = R 1 N 1 ( 2 . 2 > 

H 1 N I ( 3 > 3 ) = J . 

HINT ( ) = 1 . 

HINT  ( 4_»  IJsH’U.jiUl  _ 

H 1 N I ( 4 • 2 ) = 0 “ U u J A 
K 1 N T ( '4  • 3 J - 3 . 

HlNl(4.«)=l. 

Hi  Tu  M 
NHF(»  = t) 

JK  1 N T ( 1 • i ) = 3"  JuL  A 
KlNl  < 1 *2  ) = 13  “ 0 w L K 
kJnTm»3)  = 2. 

K I N T ( ] . 4 ) = 1 . 

HINT  ( 2 • ) ) = Li  - « i*l  I A 

K i N I i2»2)=u”;JmIA 

HINT  ( 2 » 3 ) =2  » 

R I NT ( 2 » 4 ) = 4 . 

HINT  ( b»  l ) = tJ“WwiJi< 

H I N 1 (b*2)=M“uNUA 
HINT t b • 3 ) = 2 . 

KhKS.^jri. 

C|IN  = S T i »_L  4 b * [ A + H ) * Nb  T K 

(ITi  a fT=  ,3  i )Tx  f ( c n k > 

U N 1 s ( 1 . / U4b  I H + 1 . ) ) * <■  ClIN  + OjAO  > * b 1 NE4‘j 

0 f J 2 = ( 1 . / i N b l k + 1 , ) )*CCI)N“Ou*U))*SlN!  4 b 

K ] N T ( 3 • 1 ) = 11  “UN 1 

K I NT  ( 3 • 2 ) =i)*4  iL  4 
K t N I ( 4 . I ) - d “ vj  , * : I A 

H IN  I ( 4 » 2 ) = i I “ u . j 2 

1 K C T *\  H .LI.  I K m ) uU  Tu  bO 
HINT ( 3*  3 J = 3. 

K I N I ( 3 * *4  ) - 1 . 

HINJ(4.3;=3. 

H I N I ( 4 . 4 ) = 1_. 

KLTUH'J 

H 1 N I ( .3  » 3 ) = 1 . 

KlNl  ( 3 . 4 ) = 3 • 

H i N T ( 4 , 3 ) = 1 . 

KlNl  ( 4 » 4 ) = 3 . 

kl  i nw_rj  _ 

n ( d"h  .'ll • o.O)  " Vu  III  f5T 

N K f li  = l 

C 0 N = frPh2(CK»A»H»PiT) 

Ul)AU  = l>IbCH(lK»A»H»Pr<»C  ) 

UNLK=CHn"OUmO 
UNUK  = Cm.  + OOAi) 

kI  nT  T T » 7 7=1 b " 77T  i F< 

HINT  ( 1 » 2 ) *d"UNI.  H 
H I NT  ( 1 » 3 ) = 2 • 

HINT ( 1 .4)  = 1 . 

Hi  T U K N 

1 T ( U A .uT.  0.0)  (,u  TO  tto 

_____ 

HINT ( 1 .1  )=-  boKT It  ) 

Kl NT ( 1 . 2) =buK  1(C) 

R I NT ( 1 » 3 ) =6  . 


oOooiaou 

0 0 0 0 1 b 0 ■. 
()000  1 6<; 
0003170; 
0000  1 tt(  . 
UOOU  1 -4U  . 

0 0 0 o 2 0 O '. 

U 0 0 o 2 1 0 ( 

0 0 0 O 2 2 J . 

0 0 0 c 2 3 w v. 

0 0 0 a ? <4 .)  • 

0 0 0 r,  2 b ( 
uOuu?nj 
00002  71. 

U 0 o o 2 o ( 

0 0 0 6 2 * ( ■ 
00003000 

00003100  , 
0000320'. 
00OO33UO  ‘ 
00003400 
000o3b00  , 
00003600  I 
0 0 0 0 3 700 
0 0 0 0 3 o 0 0 . 
O0OO34UU  I 
0 0 0 6 4 0 0 0 

OOOOu  1 Ik  * 
O00O4200 
0 0 0 o 4 30  0 - 
0 0 0 0 4 4 0 (t 
O00f)4b0i; 

00(lti4h(i(i 

0 0 0 6 4 7 0 ( 
00004  MOO  . 
O00O4VOC 
OOOObOOu 

uooos  1 oo 

00uob20C 

oooob  j()0 

0 0 0 0 b 4 (.  ( 

OOOobboO  ’ 
0 0 0 6 b 0 ( . ’ 

0 0 0 o b 7 0 0 
uOOObdOO  , 
OOoob  -)(,!. 

00  0 0 6 0(<  U 1 

00006  1 CO 
000O62CO  ’ 
000b630o 
000O640U 

OOGftftSCo  i 

00066601;  I 

O006b7ou 
00006000 
000H6V00  ! 
0000700b 

TJO  0 8 7 I 0 0 
0000720b f 

000O73OC  i 

000074Cl 

000R750U 
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NRE  0 = 4 

CUN  = T L R ri  2 ( C A » m * b » F*  A / 

UUAUsDlbk.RltA*A*H»PA.C) 

(J  N L A = C 1 1 U - 0 u A 0 
gNUA  = (;m,«-QiiAu 
KJNl  ( 1 > 1 ) * b*  whL  A 

R I N T f 1 .2)  = SiRI(C) 

R I N T ( 1 . s ) - 6 . 
k I N T ( 1 ► 4 ) = 5 • 

R I N T ( 2 * i 1 = b “ 0 1 « ‘J  m 
RIM  ( 2 • c ) - o “U  • 4 L.  A 
R 1 N 1 t 2 * 3 ) * fe  * 

R1  RTF?  »*«}■«'. 

RINT  ( 3. 1 ) = B“<j.U)A 
HINT  ( 3*2J  = 8“U.'iLA 
k I Ml  ( 3 • J } = 3 . 

RInT(3»4)=5» 

RINT ( A > l ) = - SORT ( C > 

rTnT  7TT.Z‘)«a-uuuA 
RlNT(40)  = b. 
rInT  ( a • <« ; = 5 . 

RtTUH'l  ~ 

L NL) 


00087700 
O0OH78OO 
O00879OO 
OOOBHUOO 
0 0 U 8 8 1 0 0 
000tt«?(JU 

0 0 0 o b 3 0 0 
00088400 
000ob5CC 
000bn6OU 
O0OBn7oC- 
OOObooOu 
00088900 
00089000 
000891 00 
00089200 
00089300 
_00069400 
00089500 
00089600 
000897CG 
00089800 
00089900 
SEGMENT 


START  OF  SEf.*t  «T 

FUNCTION  21CX»A*B)  000«S10(. 

0004520*, 

This  SUb  k Uu  T 1 p L is  NEEpED  FOR  Th_E_  I NO  UMPL  E T E BETA  FUNCTION  0 al  C 0004  5 3t  0 

fNs,7*(ML0G(ll>»  + A + H>)**^+AMAXl(X*(A  + H)-A#0,0)  00045500 

N=lNT(Ft»)  0 0 0 4 5 6 0 1 


C=l.-(A*b)*X/t,A*2.*FN) 

ZI  = 2./(L  + SukUC**2-4,*FN*(FN-B>*X/<A  + ?.*FN>**2>) 

U l J 60  J«1»N 

F N = N ♦ 1 - J 
A?N  = A-*-?  . *FN 

Zl  = C A?N“2.  >*  C«2N-1  .-FN*lFl,-bJ*X*Zi/A2N> 

ZI  = 1 ./(  J .-l  A«-F  N-  1.  ) * ( A*F  N-l , •*-B)*X/Zl  ) 

CONT  1 Hilt 

rL  Turd 

t NO 


00045700 
00045800 
00045900 
0 0 0 4 6 o U 0 
00046100 
000  4 6 201' 
00  o 4 6 3 1 
00046400 
0004650c- 
00046600 
S E G M f 0 1 


C-  22 

SUBROUTINE  KLi>VUL(  A»B.  C#  VULiiMt,  NSlD^-S,  NPNTrT.POINT.K  V Al  } 

C'JMMilN  /CRV/NiP.RINl  .CUK 

C (J  M M 11 N /CBl/  vjK  I UW  . bR  I L)u  • uK  i UK 

DTmEnSTGU  P o I ( 4 * 4 ) » FV  mL  ( a 1 • ft  1 nT  (5  * 4 ) *S  (A) 

TLINL(Xl.Yl,X2.Y2.X)  = ((Y2-Yl)*(X-xn/(X2-Xl))  + Yl 

LH)  10  Ip  = 1 • NP.vTb  T 

Fval(  iPisTt-K^ubOVjInTl  I P • 1 1 » Pu 1 N T ( I P • ? 1 1 

10  C (IN  1 I NHL 

bU  1 1 1 ( a j * 4 0 • io  * jo  ) * ns  I iiEs 

2U  HlFtl=A«LAlKlNT(NliJ»3).A-PnlNrn.X)»H-PuiNT(l»l)»RlNT(NiP»i)»A* 

1 P’li:il(<;»0*U"PU]NT(2.i)  ) 

PI  F C2=Ahl  A (k  1 uT  C n 1 P*  A ) . m-P[)  I uT  f 1 .2  ) * B-PulNT  ( 1 . 1 ) *Kl  NT  l N 1 P'4  ) * A“ 

1 PUlw  I ( J*  2 1 » B-Ptl  INI  ( J • 1 ) 1 

V(IL  O-'l  = VuL  UI-lL  + (PIL0i*(FvAl(1;  + 1 VAl(2))  + P1F;Cz*(F'VAL(1  )*FVAL(3)11* 
C U H 0 = 1 F A X f ( iPuIilT  ( 2*2)“PIJlNr  ( 3*2)  )*0.5+PUlNl  C 3*2)  )/(jRlDO)*(iKlUU 
F lMP=TLrtPOb(PUlN7(2'll'CUKUl 
UO  21  1=1.2 
DO  21  J=  1 » 3 

1FUVA1  U)  . LjL  . F V A L ( J ) ) bU  C U 21 
AINT  1 = (‘  V AL  C 1 1 
FV ALT  H = FVAL  ( j) 

FVAl(J)  = A1N1  l 
AlNTlsPuiNrCI.l  ) 

AlNT2=PuINl(l»2) 

p u i n r ci . i ) = p u i n i ( j * 1 1 

P u I N T ( I.2)=PJiNT(J.O 
POINT  C J.  n = Al.iTl 
POINT ( J»2)=a1nT2 
? 1 CON  t I DDL 

SI  1 ) = SUnl  ( ( C P J I N f ( 1 * 1 ) -P  J i N I (2.1  ) ) * * 2 . ) + ( ( PU  I NT  ( 1»2)“Pq1n1(2*2.)  ) 

1 * * 2 . 0 ) ) 

S(  2 ) = SOi<  I ( l l P Jl  NT  ( 1 « 1 ) “Pill  0 I ( 3 . 1 ) ) **2.  ) + ( ( POl  NT  ( 1 ' 2)  “PnlNT  l 3*2  ) ) 
1 **2.0  1 1 

S(J)=SUKl((CPulNT(2»l)-PUlNr(3.1))**2.)*((PUlNT(2*2)-polNT(3*2)j 
1 * * 2 • 0 ) ) 

SPER  = 0O*(Slll*S(2)  + S(3l) 

«SAKFA=  (SPLIT  *(SP£K-i>(l  ))*(SPLK-o(2)WSPtR-S(3))) 

IF  ( H S A h L A ,LL.  0.01  BSARLA  = 0.0 
' B SART?T=5ut7  TTb5*TTFO  ~~ 

ir(  fval(I)  *lE.  o.u)  gu  to  2b 

pV0L  = ((Ti/AL(ll"FVAL(2)  + EVAL(l)“f'VAL(3)l*WSAHEA)/3»0 
VOLUME  = VOLUME*  f ( US AREA* F VALC 1 ) )"R VOL ) 

2t>  LXTKA»(oSAKLA+PlECl+PiEC2)*(FlMp-AMlNl(FVAL(l)*FVALl2).FVAL(3))l 

LXTPA  = Ai-iAX1  (o»o»ex  r rt a ) 

VOLUMLsVOLIJML  + F.xTRA 
4 0 FTLTUFTN 

30  FTsAtJS  (POINT  ( 1*1  )“P|]iNT(2'l)) 

lf(  PoInT(I.I)  .FO.  PuloTl2.ll  .UR.  PqInT(3*1)  ‘LU.  P0INT(A»1)) 

i f»IT  Ok  n ' 

Hl  = 0.5*AbS(PUlNI(2.2j-PulNT(A.2l)*(fVAL(2)*FvAL(‘»)l 
HP  = O.S*AbSlPCliNT  ( 1 • t )“PuIl!f(3»2l  )*(F  VAL(  1 ) + F V A L ( 3)  ) 

XrO.S*  (PUlN  1 ( 2,  t 1-PUINTC  1 . 1 1 )+Pf)I  NT(  1 . 1 1 

Yl ■TLlKLCPUlwl C 1 »1  )»P0I0T( 1 .2).pOInT( 2. 1 l.PUlNT  t2*2).x ) 

/l=TilNL(PUlol(l.ll.FVAL(l).PUlNT(2*l)*FVAL(21.X) 

X . b* ( PU I N I ( a . 1 ) -Pul NT( 3. 1 ) ) +P0 I NT ( 3 . 1 1 

Y2»TLlNL(PulN  1(3. 1)*P0 I NT(3*2).P01nT(A. 11. PUINT(A. 21. X) 

Z2  = TLINL(PulNl(3*l)»FVAL(3)»PIJlNT(4.1).FVAL(A).x) 

BU*AMS ( Y1-Y2) 

BM  I U = 0 . b*BH* ( L 1 *22 ) 
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oooysoou 
oOoybiou 
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oooybyoc 
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-oooy 7600 

oooy 7yoo 
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OUUV  yt>U  0 


I 

I 

I 

1 


VUL\JML=VULUHt_  + 


1 { ftRIftTturl*  A-PuinTt?»2'> . 6“P  DINT  (7? . 1 ) . CUH.  A -POINT  (1  *2  > » B-POl  NT  t 1 . 1 ) } 00099  TOO 


? * ( F V«L  i 1 )*F  VmL(  2. ) ) * 0 • b ) 

RETURN 
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START  OF  S K G M L N T 

SL)iiKOUT  i NL  ZRANGE  t U V Al  » 1 CL  . T CO  »ZHAX  . l\A  1 N ) _ _ OOOVoOOU 

COMMON  / CB  1 0/m  A , P A , I.K  . Pk  . A . b . C OOOVOlOO 

oooyo^oo 

oouyo3ou 


T_t=Li  ^ SUtltf'JuTlNL  o ALGOL  ATLS  THE  z INTu, RATION  LIMITS 
H)R  m GlvLN  U VALUE 


LLL1PS(apK»xlk>uR»Puhi=((A+xpk*uP)/  C XCR+J  •)>♦((  “T  • J**ROM)* 

IS  UR  I ( ECntCK  l 1 * C ( (A«-XpR*uP;/lxCK+l  . )->**?. -(A**?. ♦t1**2.“C,‘Z'*H*Ur' 
? ♦ ((XCR*l,)*luP**2,J))/lXCK'M.)J)) 

ClHCLL(uR>PuM)=( [ -1 . ) **PUM) * 

1 SORMFuiECRtL.(C“(JD**Z.n)) 

MTYP=  IF  tx(  ICUJ 
LT Yps 1 > 1 X t ftL) 

(JNP=  1-0  ^ AL 

Gil  ro  ( l ')  » 1 o * ?0  • ?0  » JO  . Ju  ) * M T Y P 
Z 0 A l = PLLlPbCPR*CK,urjP»lCU) 

GO  TO  “0 

ZCAl*LLl1PSCPA.CA*QNP*TUJ) 

GO  TO  AO 

ZCAl=  CIkCLLIOVAL'TCU) 

ZmAX=A“^CAL 


uOouoaoo 
000 voboo 
OOOyObfO 

oooyoFoo 

OOOVOttOf) 

oouyoyoo 
OOOvlOOU 
oooy i ] oo 
ooo^  120  j 
uOoy ; JUv 
UOO*  1 '<0u 

DOoy i so 
oooy 1600 

000CM  ?(0. 

oOoy i oo 
OOum  1 >*00 

o o o y ? u o 
oooy? : 
oooy?? 


GO  Til  ( bo. bu> oO, 60 , ty. FU > » L f Y P 000y?‘. 

50  zc  Al  =LI.l  I PS  <■  PR  ' CR  » IjNP  » TCL  > OOdv?*. 

GU  Til  Hu  O0u*zi? 

jO 1C  Al  = F_L_L  1 P * »CA  »u.<p  • T C L ) 

G(J  r 0 6u"  in 


’0  ZCALr  CIKCLLCoVAL* tcl  ) 

ilO  ZmIN=A-ZcAl 

return 

END 


1 
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UNION  COLL  AND  UNIV  SCHENECTAOY  NY  INST  OF  ADMINISTR— ETC  F/6  12/1 
AN  EXACT  TEST  FOR  THE  SEQUENTIAL  ANALYSIS  OF  VARIANCE. (U) 

AUQ  79  II  MILLER  N00014-77-C-0438 

AES-790*  n 


END 

DAT( 

F ll  ME  a 

9-79 


t~.  <-i  o o 


C-24 


C 

C 

C 

C 


10 


“I* 


10 

If 


IB 


FUNCTION  TEKRuCW.R.K. IKLAu) 

this  rouiine  estimates  the  density  riw.o.R) 
r UK  KillNTS  nut  lying  UN  The  TKIvARIATL  grid 
This  subprogram  pErfurms  intlrpulatiun  In 
One. Two. UH  THREE  DIMlNSIOnS 
CUMMI)N/cij1/i»R10w.GR10N.gR1uK 
C flMMf)N  /CHl/NClJNH.NLUNQ.MSTRT 
CUMM‘lN/lul4/Ai'iLAN(2>»XBRl.XbR2,\/AR,U<iF 
CUMMNN/lh7/  LSTR.IS'JR 
C U M M 1 1 U /LUO/  I MAXW  • I HlNn . 1 HAXO. IMInu 

CUMN'lN  N U M R . U M 0 * N U M H 

C<)mmi|N  /oH13/  OHIO » wHEG 

COMMON  / v,f(2/  JREC  » fbT  AT 
COMMON  /^B57  H L G ( 3 0*2) 

COMMON  /CH20/  KLCHAa 

DlMLNSluN  LUUHfH  0.4  / . XVAU  1 0)  , YVAL(  l 0) 

U L t 2 ( A * b • C » 0 J = A *H “C  * D 
TERM()  = 0.  u 


OOl  00200 
1)0100  300 

001 00400 

00 100500  * 
0 0 1 0 0 6 0 o 
ooujunnj 

00  i oo  <3  or 

00100  V''1 
001O1UOL  * 

001  01  10,'  ; 

00 1 0 1 20' 

0 0 1 0 1 30  0 . 
OOlOlaOt  1 
*6 

uOl  0 1 b(". 
00101 60n 
00101700  • 


00 1 0 1 rtOO 

1 F ( PIlSpRObl  w *0 »R *LoTP+  i)  .LT.  0.0)  RETURN  OOlOlVOol 

Lbl  = (R/bRlUw)  + lFlX(nUMW/2.)-*-l-HIXCC  isUK*XmLAN(  1 ) >/gHIDR  > 001020  00.* 

WHEGe(Lbl-l-U  IX(NUMw/2>4'IrIX((ISUR*XMEAN(l))/GRlUw))*GRlOw  00102100 

Tb?d0/0R  I UuTTTrrx  < NUMu/2  )♦  1 - 1 r I X ( ( 1 SUR*XMEAN(  2 ) ) /GR 1 D(j ) ' 00102200  , 

Wbf  Ob  ( l «2“1  “ 1 T l X(NUhU/2T  + inX(  ( I SUR  * X ML  mN  ( 2 ) ) / OR  I DU  > ) * Gw  i U U 00 102  300  J 

ENTRY  TlkPuHw.O.R* TREAD)  001024  Oo 

Jf  = 2 00102500 

JS=  1 001026(H)  I 

J1 = 1 001 02 7 (C  1 

R’PST  =1  ~ ~ ’ — 001O2BOO 

NRNA  = ()  O01O2YOO  J 

IF  (wbEG  . Eu » w . A N I)  • ubEG  »Lij«  0)  OH  T')  15  00 10 3000 

IffwnfG  , Eg . w)  GU  H)  4b  001031 00 

1 F ( u rt  E G .Eu*  U)  GH  lU  BO  00103200 

GO  III  ?b  00103  300 

irn  W '.17TT-THAXw_.TIH.  TT  "iLT".  TMTN^)  ‘ *“  " ' ' " ' 0010340C 


1 .And.  IU  . GT  • I M A XU  .OR.  0 • L T . T M i N 0 ) ) G(J  Tu  V5 

IF(w  .Gf.  TmAxw  .OR*  W »LT.  TMINW)  GO  Tu  80 
1 F ( U . G I . 1MAXU  *0R.  0 » L T • TmINO)  GO  1U  45 


i ntekd/lat ion  In  one  uimEnsiun(rN) 


L4=(R/GRIDR)-1FIX( ( C w**2. ) + (Q**2. ) )/(NSTRT*GRlDR) ) 

L 5 = L 4 ♦ ? 

P0W=-1 . 0 


00103500 
0010360b  ; 
001037 00 
001  038(io 

0 0 1 0 3 V 0 o , 

OCT  04 00 1 
00104100" 
OOl 04200^ 

001  04  30i, 
00 1 04400-  - 


I F ( l 5 .ur.  NUHK)  L5sNUMrt 

TTTLJn  T5n6'*T7 

L5  = -l 
POw= 1 .0 
NN*w 
0N  = 0 
NP=  1 

— NTTSNUMR/2 

DENSsO . u 
DO  20  7*1. NTT 
L6sL5+l ♦CPUw*l ) 

IFCL6  .LE.  0 .OR.  LG  .GT.  NUMR7  GO  Tn  i* 
CALL  KCAL<0»O»Lb*LSiP»WN»UN*RN) 

~ 3 F f ISTAT  ,GE.  REGTITSTFT2J)  GU  T0~2t) 

CALL  I ENT  CL Jl »L J2 »L J 3 » WN »UN » RN > 

RE  AD  CTRL AD« JREC)  YVALCNPT 

XVAL( NP>«RN 

irCNT  .liE.  A7  SP~rn~2T~ 


00  1 045(10 
00  1 04  6('  C"T 
00 1 04  700 
00 104600 
0 0 1 0 4 V 0 'J  ■ 

001G500U 
00105.00 
00  1 052 oo 
0 0105301  ' 
0010540i 
001055OO 
001056(iCr| 
00  1 05  7 Oi ' 

TT0105600 

00105*00  . 

001O6O0C 

OOlOMOO 

001O62G0 

• * »%  • 


. 


__PUW*( -1 *l))*PUw  _ C-25 

GO  T n ]o 

DENb=POLY(XVAL.YVAL»R*NP) 

I F ( DLN6  .Ll»  l.OE-Jb)  UtNS‘0.0 
TtRPil  = OtNS 

RETURN 

IKn  *G  I • J i'«  A a W .OK*  W • L T • THlNW)  U(l  TiJ  VS 
V 1 =u 


T W tJ  ulMLUblONAL  InTL’KPULAT  I ON  (UN.RN) 
USING  A a t'0 1 N T l-ATTICl  For  LAGRANGE 

up  using  -i  h* o I iv t planar  i p all 
poiNii  akl  nut  available 


) AO 

■ so 


bS 

60 


001066L 
00 106 7() 
00  10600 

0 0 1 0 6 V 0 
001070C 
0010710 
0010720 
00 107 30 

001  07«g 
00 1 0 7S( 
001076' 
00lu77(. 
001u7ri 
00107YG 

I F ( u .L  l_,  u.U)  U»Li»sUiHIti~uH  1 J J OOlOnOe 

I F ( 0 H L G . L I • IMiNO)  ObEu*  fHlriO^uKloV  0010610 

It!  lObFu+GKlyul  .GT*  jMAXg;  ytJEG*  Tm  Axg  "UK  I DU  0010626 

KREg=IFiX(r/gkIUR>*gKII)K  001U6.1L 

UU  SO  Ii  = l » Jf  . JS  OOlOtifcf, 

()N*U!<EG*  C 11-J1  )*GKli'U  UOlUebO 

IF  ( U N , L I i 1 M i N(J  ,U»«  ON  tGT,  THAXO)  GU  TU  AH  0010660 

DU  SO  W=1.JT»JS  6 0 1 0 8 7 o 

KN=RKEG*(  l2“Jl  ) * G N I U R 0010660 

LA=lKN/vjKlUK)“lFlX(v(W**2.)t(UN**2.))/lNSTKT*GMlJR))  001U8VO 

I F ( L A *i_E*  0 .UK*  LA  »vjT.  NlJiTK  *0K*  RN  *LT*  O.U)  GU  To  AO  OOlOVoO 

CALL  CRT  I V(  tiN.ON.Kil.LSTP)  OOlOvlO 

IF(T,sTAI  . OL  » REG(LSTP*2)J  GO  TO  A8 001UV20 

CALL  I Fn  I ( Jl  ** » JLO  • JcR  » KN  » WN  » KIT  ) 0010K.10 

RL  AuUpLmD=  JKUC  ) COuHD(  NPSF  • 1 ) OOlOVAO 

COUROf NPbF .2 )*0N  0010VSO 

CUnKulURbf • J)«HN  00 1 0 V 6 u 

n (Nf'SF  . GL  • 1 .AND*  NPN  A ,GL*  1)  GU  TU  60  0010*7(. 

NPSF  =Np6T  + 1 ___  _ _ 0Olo«*nf 

GU  Til  So  " " " ' " 0010VV0 

NH  N A a M p n A ♦ 1 OOiluOO 

CUNT  1 f 1 1 1 L OOliolO 

IFf  NpSI  *Lu*  A ) oil  ru  70  001  1020 

I F ( J 1 .utv  1>  GU  TO  SS  0011OJ" 

jF  s A OOllOAO 

_____  OOl 1 oso 

JS*2  0011060 

GU  Til  A 7 U 0 i 1 0 7 0 

RLTUKU  001106O 

PL  AWlbDL  T2( i LUOKIH  2» i)"CUURU( 1 • 3) ) •tCOJRUT  3* 1 )*CUUKD( 1 »1 ) 7 • ICUUKDt  001 loV(. 

1 3»  3 )-Cflu,<u(  1 • 3 ) > » ( CuUKDl  2. 1 )-C(j(jKn(  1*1)1  1 *(  V 1-CuURD  1 1 *2  1 ) 001  1 1 uO 

pT"a 'If'  = pL  aNL  + ( uC  T 2 ( ( tUrjRoT2  rT)  • C O OKU  l 1.1 ) ) * ( C UUKO 13 • 2 ) “C  UUKU ( T*  2 ) ) OOl  1 1 li 

1 . ( LUIlPul  3. 1 1 *C UllRo 1 1 » 1 1 > » (COJKUC  2.2)-CUUKIJl  1 *21 1 > 1 * ( K-CuOhd l 3 • 1 1)0011120 
PMUlI  sol  r 2 ( ( CuORDC  2#2)-CUUKD  t 1 . 2 ) ) • ( COl)i<U(  3 *T ) "Cl)  JKU(  1 • 3 ) ) . ( CUtlKO ( oO  1 1 1 Jj 


1 3.21-CuuROl 1 *2) )• (G00R0(3.2)-C0DRD( 1.2)1) 

IF( PMULl  *Lu*  0*0)  GU  Tu  65 
OENS  = COjrD(  1 . 1 )-(PLANL'/PMUlT  ) 

GU  1 '1  AO 

UENS*CnUKf)(  1 • 1 ) . 

GU  TU  AO 

DU  7b  I 3 2 . A __  __ 

I F { CUnr<o(1.2)  »NE.  CUUKl>(  i *?  ) ) X l »CU0KO(  I • 2 ) 
IF(COORO( 1.3)  • NE  * COORo ( 1.3))  Y 1 *CUURD ( I • 3 ) 


1 .ANu.  ( cUuRD  ( 1*3)  * LQ  * COORD  (1.3)))  F 1 ■COORD < I • 1 > 
in  ICU  OTuiTT  Vi.  1 • NE.  TO  OTTO  ( H2  IT 
1 • AN!)  • (CUUK0(I*3)  • NE  . CQ0KU(1*3)))  F J«COORO  ( I • 1 ) 

CURTInUl 

DENS=  ( 1 ./(  (gOuHDT  1.2)-xl  )*{COOHI)(  l»3)»Yl)  )) 


00111  A (i  ■ 

00111  Su< 
001  1 16' 
0011  1 7 o 
001  i 1 ttui 
O0)  1 1 VOi 
001 1 ?0l 

0 0 1 1 2 l u . 

001  1220. 
001123C. 

0011 2 A 0 • 
001 125<'< 
OOl  12ol , 

T)0 1 1 ? 7 u t 

001 12001 


1 *C  ( Vl-Xl  ) * l H • Y 1 )*CUUHDU»  1 )-(  ( Vl-CUl)Rl)(  1 .2)  )*(K“U  )*Fl  )-( 

2 *(K-C()UUl)(l»J>)*F2>  ♦(  Vl-COQRDl  i .2  J )*(K“COORD(  1 »3  ) )*F3) 

GO  Til  AO 

«0  If  ( u . G T . 1 HAXU  • OK • 0 *LT  • TmINQ)  GO  TU  95 
V 1 «w 

C 

C Tw'J  u I M Li»  5 1 0 N A L InTEkPul  AT  I ON  wn»ON 

C 

IF(  w .LT.  O.O)  rtRFvj«wRLG“GH10w 
11  ( Will  u . L I • TMlNw)  Waco* TMlNW^GRlDW 
II  ( ( WHFo+GRiDw  ) .&T.TMAXW)  rfJjEG* Tm AX  N*GK  I D W 
HHFG=I»' AX(M/«wlUIO*uHlDK 
8 3 U'J  9 0 1 1 = 1 » Jr  » Ji> 

H N = w U t G ♦ ( I 1-J1  ) * GR I ow 

IF(  n:l  » l.  T . ImInw  .oR.  «N  .jT.  Tmax*)  GU  T D 85 
Oil  v.)  I<r  = l . Jl  # Jb 

LA=(  KN/a><lLl»<)-lF  IX(  l ( 0**2.  ) + ( WN**2»  ) )/(  NS  TRT*GRil)K)  ) 

1FC  L A .lF.  0 .OR.  L 4 . UT . NUMR  .OR*  RN  .LT.  0.0)  GO  Tq  85 
CAIL  C R 1 I V ( w N » Q N » R N » L S F K ) 

1 F ( r S T A I , uL  . REGUSTP.2))  GJ  TO  8b 
CALL  1EM(JL*i»JLQ»JLR.WN.UN»KN) 

RLAjl IRlAD«JKLC  ) C0URD( UPSF » 1 ) 

CUllKiK  “JPbF.2)  = HN 
COOHtK  NPbF . J )=RN 

TF  njP5r“_»‘GE'i  3 TAND  TTPRff  ~rGE TO-  GO  TO  60 

NPS1  ='0’j)  ♦ 1 
GO  Til  90 

ttb  NPNA  = N'’i«a+ 1 

90  CONT  1 M'H. 

IF  ( NPSr  . Lu  • A)  GO  TO  f 0 

~ p*T  "TF  .liT.  11  GT)  TLi  3b  

jf  = a 
JI  = ? 

Jb  = 2 

GO  Til  HJ 
C 

Z TRRrF  T)Ti-,i.:i5T0;TA'i.  INTERPOLATION  * ' 

C VIA  mN  . PjlNT  LATTICE  FUR  LAGRANGE 

C (JR  RtpEkpLANAR  I iiTERPOl AT  I JN 

C IF  PulNTb  AHLNT  AVAILABLE 

C 

Vb  l F ( w .LI.  0.0)  HHEG*W8Ev»"GKII)R 

— rf-ro-  m-ruro)  RwiG^oorQ-^Rima ~~ 

I F ( hHL'G  .LT.  IMINW)  RBEG*Th1NW 

I I ( OHF  0 .LT.  I H 1 N U ) OHFG*TM1NO 

1F(  IWHFu-fGHlow)  • GT  » T^AXn)  HUE G* T M A X « “OH  l 0* 

IF(  C URFg*GR1LI0)  .GT*  Tma*U)  Out  U*  T H A X O-gK  1 1)0 
K B f G = 1 F AX(K/oHIoK)*uKI|)K 

Tbn  Tm  1?nisl^iJ5 

HN**mF.G*(  I I“Jl  )*GH1ow 

I F { W*J  .LT.  ThINU  .OR.  nN  .GT.  TMAXW)  G J TO  110 
00  1X0  12=1  *J»  » JS 
GNsurtEG*! I2-JI  )*GRIoj 

IF  (ON  .Ll.  1M1NG  .(JR.  QO  .GT.  TMAXG)  qO  TO  110 

DO  ~ T70~ II  = ITjr.'JS 

KN«HnEG*lI3“Jl)*GRIOK 
IF ( HN  .LL.  0.0)  GO  To  110 

LA  = (RN/ur<IO«  1-1FIXU  CRN**2.  )»(0N**2.  > )/(NSTRT*GRlUK  ) ) 

IFF  LA  . LE . 0 .OR.  LA  .GT.  NUMR ) G(J  TO  110 
NPS1 *NPbF ♦ 1 

C7SL L I E I.  T ( Jl  W . JL 0 . J lTF. R ■ /."Q  N” »~R  N1  

RLAl)(  IRlaUsJKlC)  CilURU(  NPSF  • 1 ) 

CODHOt NpgF*2)»HN 


(Vl-Xl  )001  l?9l) 

0011  3 o ( ‘ " 
001 1 310 
0011 320 
001  1 3 3'.)  -• 
001 1 3A0 
001  l 3b(, 
001 1 3bu 
0011370 

00  1 1 3a  o 

001  1 3 V u 

0 0 i 1 it  U L * 
001 1 A K; 

001  1A20  t 
001  1 AiO-» 
001  1/HU 
1)01  1 Abo 

_u0l 1 AGO _ 
001 t A7o 
OOl 1 A80  f 
001 1 avo 
001  lbOO 

00  l IB  10 
0011520  ' 

— 001 1530 J 

001  1 5A0i 
001 IbSO  | 

ooi i a bo 4 
001 lb7oi 
OOI  15801- 
0011590  T 

00 1 i 600  ^ 
0011610 
001  1620 1 
OOI  1 6 3 0 

001  1 6 a ('  i 

001 1650  , 
001  1 6 6 L 
001  16  7 Oi 
001  166  01 
001  I69f. 
001 1 700- 
— (TOll  71  0< 

00  1 1 7 2 0 
001 1 7 JO 

001  1 7a»)7 

00  1 1 7 50., 
()0  1 1 760  : 

001  l 7 fur* 
001  1 7 o 0 • 
001  1 79(H 
001  1 600.- 
001  lBlO' 
001  l n2o  • 
O01 183o 

001 lHAOT 
0 0 1 1 6 5 0;. 

00  1 l 660  * 

001  1h7o^ 

0011 rtrtO. 

00  11b VO 
001 1 VOO 
001 1 V10( 


C-27 


^U  10  WO 


001  1 V50i 


( _ J °2 


NPriA  = ,|T*tVA+ 1 
CON  I I NHL 

1 F ( NKSf  .Lu.  6)  GO  Til  liu 
IF  ( JF  .Gl  . 1 ) GU  To  55 
Jf  an  ' 

JI=2 
JS  = 2 

GO  Til  1 5 J 
0 L N S * 0 • 0 

00  l'*U  1 = 1.0 

L)  0 1 M l J 1 = 1 » o 

Iff  COOKofJlW)  .NL»  COUriU  (1*2))  GO  TO  102 
CONT l NHL 

UU_I«  3 *=!»£>  .. 

Iff  c00ru>(J2O)  • NE  • CQURU(l»3>>  GU  TO  134 

ConTINOl 

UO  135  JJ=1*0 

Iff  C(JDoL»(  JJ**<  > »NE  • CQoRu  C I » 3 ) ) GU  TO  106 
CUNT INUl 

OLNbsUr.Nb-K  C ( <i-CUORu(  I *2)  >*(Q"COORl)(  I » 3)  )*  ( R'COUHlK  !•<♦>>) 

1 /( (COOrtUf  1 *2)-CU0HgC  Jl  »2>  ) * l CUiJRI)  ( 1 • 3 >*CUOKO  C J2  * 3 ) ) * ( CUUNU  ( I • •* )’ 

2 cnjRof  jj,  3 J ) > )»COt)rtlH  1*1) 

CUNT  I NUt 
GO  Til  «v/ 

CONTI NUl 
Rf  T OWN 
END 


0 0 1 1 9 6 0 ( 
001 1 v70( 
001 1 9o0i 

001  iWOi 
00 1 200U( 

0012 0 IOC 
00  1 2<)20f 
00 1 2o JOi 

0012o«OC 

_0012050( 

" 00120600 
001 20700 

0012U600 
00120VOO 
00121000 
_00 1 2 1 100 
00121200 
00  121  30u 
00121 «00 
00121500 
00121600 
_Q0 121/00 

00121  BOO 
00121 VOO 
00122000 
00122100 
00 1 22200 

SEGMENT 


—4 


C-28 

FUNCTION  ANLAIWHHI »COWNi »COHUl »wH«2»C0«w2»CUNU2) 
CUMHiJN  /CHlo/  CA.KA*CN.KN»A*B»C 


U 1 * C i)R  0 1 

02  = Cl)RR2 

Wl^CnRWl 

...  . - • 

W2=CURK2 

ARfAxO.O 

IF  C 

tWHRl  .EG.  KrlR  2 ) 

1 -UK. 

2 ( ( a-UIIH  «MR1  .2)  .Eg.  O.O)  .AND.  ( w H K 2 .L(J.  (NHKW1.))) 

4 • OR . 

5 ( ( auUimuhNI  .2)  • EQ » 1.)  .ANU.(*HR2  • E()  « ( WHR 1 *1 . > ) ) ) GU  TU 
KLTUK'J 

1U  IGOsIFlxCWHK^i 

G U 1 iJ  ( £ J * do  » JO  » 30 » 30  » 3 j ) » I lit) 

20  XC  = C R 

xp*pr  ' — 

GO  T U AO 
30  XC  = C A 

XP  = P A 

AO  IF((wl*«2)  • L i • 0*0;  GO  Tij  7b 

E.PAKri*UA*lWc-Ul)«’0»b*Ar,*(U2**2.“Ul**2.))/(Xc«U.)) 

~T5  ~ TTs  ( x PVT2“.l -it  x CVT . j **7.  F ~~  ' 

C2*2.  *C  a*XP*B*  ( XC*1  • ) ) 

C3  = A**?.-(  XC+i.  )*(A**^. +«**<». -C) 

TCUNV*Au!>(0.b*(Q2-Ql)*(*l*rt2)) 

THMl=Cl*tU2**^.)*C?*U2+C3 

I F ( T K M 1 ,L  r.  0.0  .AND.  AUS(fRHl)  .Li.  l.t>04)  THM1=U.0  _ 

TRMl  = (?.*Ci*u2*C?  ) *GOH  r •.  TkmI  ) 

TRM2=C1*101**2.)+C2*01+03 

I F ( T RM2  • L I • 0.0  .mRU*  AaStrRM)  «lT.  1 »E“04 ) tkm2=o.o 
TRM2s(2.*C1*U1+C2)*s0RTITkm2) 

FInT1*(Ikm1-Trh2)/(A,*cD 
FINT2=f  a.*0  1*c3-C2**2.  )/ltt.*Cl*SURT(-Cl 
— TKM3  = $TTRTTC2T*2  •~S4.*£1*C3) 


00122 JUo 
00122400 
00 1 22b0'i 
00 1 22600  - 
0 0 1 2 2 7 0 : > 
00 1 22« o / ’ 
00122VOG J 
00123O01 

0012311..  T 
00 12 320 j ' 
O0 123300 

1000123^00  . 

0 0 1 2 3 b ( ■ i . I 

001  23000  -* 
00 12  if  Go 
0012  3a0'i  I 
00123VO.J  I 
00 1 2 AOOo 
00  12a  100  -I 
0012420;,  \ 
00 l 2 A 30  0 
0012440U 
00124000  | 
0 0 1 2 A t>  0 it  •* 
0 0 1 2 A 7 0 
001 24  900  I 
0012AVOO  1 
0 0 1 2 S 0 0 u 
00 1 2b  1 00  . 

00 1 2520.. ,  ' 
00l2b30,i  * 
0 0 1 2 b '4  0 ■ , 

0 0 1 2 5 b 0 0 T 
0 0 1 2 5 b 0 J -* 
0012570,) 


50 

55 


~5TT 

7b 


76 


AHf,l  = (?.*Cl*Gi*C2)/»RM3 

I r f ABSURG1)  ,GT.  1.)  ARG1*SIGn(  1 . . ArGI  ) 
AKG2=(2.*Cl*U^C2)/lRM3 

IF(  ABSt ARG2)  »GT.  1.)  ARG2*SlGN( 1 # » ARG2) 

FInT3*AkSINIAkG1 )-A«SlNt AKG2 ) 

" LlNK*(t  INTin  IV12*riNT*77nrc'Frrj 

LLCURVsmmS(LPART1»(1-1.)**(Nhh2-1.))*EInTg) 

1F(  ( ( n 2 ,GT.  0.0)  .ANO.  ( AM J0( KrtR2. 2 ) .EG.  1.) 

1 .UK. 

2 ( ( W2  .LT.  0.0)  .AND*  ( AMQD ( WHR2  * 2 ) *E0.  0.0)  ) ) GO 

I F ( H2  *NE.  0.0)  GO  TU  50 

rn  t t«i  «gt v w . o > i amo  . tamqd(  khr  ivz ) »eq  . i • ) > 

1 .JR. 

2 ( (Ni  . U T * 0.0)  .ANI)»(AM0o(WHK1 .2)  .EO.O.O)))  GO  TO  60 
AHEA  = TCO«y)-LLCUKV 

AREAaAMAXl(O.U»AREA) 

RETURN 

ARE  A*Tr  i U R v^TCIiTT  v 

GO  TO  5b 

IFt  C0RK2  .IT.  0.0)  GO  TO  76 

G=0, b*CUKW2 

W2s-0.5 

Wl«CORKl-G 

“G0'TTTT7 

G«0.5*CUNW1 

m*-o.5 

k2»C0RW2“G 

rn  i n • , 1 • . - m . i I . » . » o Cpil  Mrv*  mf\m  **n  l I (n.l 


00l25b00  * 
00125400 
00 1 26000 
0012610  ) y 

00126200 

00126300  - 

00126400 
) 00126500 

00126600 
TO  60  0012670  ) 
00 1 26600  - 
~~  00 126400 

00127U0v 
0012710  i 
0012720,1 
0012730O 
OOl 2740  i 
001275B,. 
001 2760  . 
0012770  > 
00127a0u 
00 1 27400  * 
0012*000 

00 1 2a 1 Om 

OOl 2M200 
001 2tt 300 
00 1 26400 

% aAl lot i 


9 


CUN  I 1 NHL 

RETURN 
E N I) 


u u i d n * u o 

00] 28000 
OOlifBvOO 
SEGMENT 


r UNC  T I ')!«  WEIguT  ( NPm.NAN) 
COMMON  /'CbB/  uREGC  ( 1 4 • 1 4 ) 

in  nka  ,ge.  is>  <s(j  ru  10 

WLlGHT*crtEGCluPA»NAn) 

RL  TURN 

I F ( NAN  .GT.  ()  GO  lu  20 
WEI  GUT  »GREG" ( 1«,NAN> 

RETURN 

IF (NAM  .lE.  (MPa m7)i  GO  Tu  30 

INOX* 1 4“nPa*NmN 
WE IGHTsGREgc (14  « INOX ) 

RETURN 
WEIGH T«  1 • 

RETURN 

END 


START  OF  SEGMENT 
001*401  00 
001  <»0200 
00U03GU 
00  1 *40*400 

00  l *4  o s o o 
001*40600 

00 1 4 0700 
00140600 
0014OVO0 
00141000 

00  1 *4  1 10(1 

001  *4  1 200 
001*41  JOO 
001  *4  1 400 
00141S0U 

segment 
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FUNCTION  Tt.RP05(UCQR»ZC0K> 

CUMMIN  / LB  7/  LSTP.IiUR 
COmmiiN  / c B 1 / uRIDW  .URIDU»GRIDR 
COMMON  /CbW/  NUM^»NUMU*NUMt< 

COMMON  / C R 6/'  T M AX W .THIMrtYT  M A X U . TM I NO 
COMMON  /CB2'  JKEC  » T jT AT 
COMMON  /Ullj/  OUEG.wBCG 

COMMON  /CHI**/  XMEANl  2)  »XBKl  •XUH2»VAK»1>GI 

Cl)MM,|0  /CBlJ/LXCLGl»LXCLS2.tXCtii»LXCEiM.A»B.C 

COMMON  /CB  3/  NCUNW.i'tCUNwMS  TkT 

COMMON/v,7h/ JUAN  I 

COMMO  4 /v.023/  KLCMaa 

L)  I ML  NS  I UN  XVAl(  10)»TVALI  10) 

TLRPll5=J.O 
I n7lm=o 
1010=  ) 

TtRPn5=u.O 

W*A“ZCOm 

0»B*i)C0h 

H = C“(UCJt<**2.*ZC0K**2.  ) 

VCH*PUSRRUrtlA»Q*R*L5TP) 

I F ( VCH  .LT.  J.O)  RLTURN 
rFT‘  L3TP  tVTV  T50TT  ) “GO  TCT3 

TLRMnt)=i,HlSyCVCH,Uiif)*PMl(w*XBBl,vAW)*PrtI(0»XBR<;#VAR)* 
1 PMI  4UC  JR  »XMdAN(2  ) » I . )*PMI  (ZC0R»XMEANU  ) » 1 • ) 

Kf.l  URN 


00129000 
00 129 100 
00129200 
O0129JOO 
00129AOO 
001 29500 
00 l 2960 u 
0012970U 

00129000 

00129900 

00 1 30000 

001  JO  100 
001 30200 
001  Jo JOO 
00 1 JOAOO 
0 7)  1 3 0 5 0 0 
00 1 30000 

00130700 
00130000 
001 30900 
00131000 
UD l 311  On 
001 31200 

00131 300 
O0l 31 «00 


5 


lb 


20  — 


2* 


LB  1 = ( W/i»X  » ; • >♦  IF  1 X(  UUMW/2.  )♦  1 *IF  1 X(  ( ISUH*XMlAN(  1 ) J/GKlUw  ) 
WhFo=(1  . u 1 ” 1 “ 1 r IX(NUMW/2)  + lFl  X(  ( 1SUR*XmLAN(  1 ) > /(,R  1 0 » > ) *GK  1 0* 
L M ? = (0  / 0 *1  n X ( U J M 0 n ) n - IFIX((ISU«*XMEAN(2))/GHIDu) 

0BU.  = ( Lb2-l-lf  IxtNUnu'2»  + lFlX<  ( 1 SUK  * XmE.  AN  ( 2 ) ) /r,K  I Uu  > >*GKlU0 
1 F ( ( w ,uT,  TiiAxrt  .OR.  ft  .LT,  TmIN*)  .ANo. 

1 (u  • G I • 1MAX0  « OR • 0 • L T • TM I NO  ) ) GO  fU  55 
jF(  Rir  o »lu»  w «ANR*  ObLO  »EU.  0)  G||  fo  15 
If  ( rhFu  tLo«  w)  Gl)  T U 30 
1 F f Onru—.EG.  Q)  G;j  To  aD 


001 31500 
001 31600 
00131 70 C 
0 0131600 
001 31 90o 
00132000 
O0l 3210C 
001 32201 
00 132300 


Gl)  lil  NO 

1 F ( N . L.U  lH«XW  iUKi  W .L  r»  TmINW)  GD  TU  AO 
1 F ( 0 .01.  IMmXu  . UR • 0 *LT.  TMlNO)  Gn  fu  30 
HN  = W 


W N * 0 


1 F ( LA  .Lt 


■UK*  lA  « 


r^»2iT7nrSTRT»GRIDR'}) 
OT.  NIJMR)  GU  TO  *5 


CALL  RCmlILoI »LB2#LA.0.wN#0N,RN) 

IF  ( HN  . 4E . H i GU  To)  25 

I F ( JRFC  .LL.  0.0  . uR . JRCC  .GT.  RECMAX)  GO  TO  25 
RLAIX  JOlur  = JKc.C  ) PKUB  3 

TtRFn5=TrR0B3:»FHl  tUCUR.TmiANC?) .1. 7*PHI ( ZCOR.XMEANl  l} 
RLTURN 

lLRPn5siLRPullW»0*K»J|JlNT) 


1.) 


001  3?aO( 
001 3250L 
001 3260L 
001  3270f 
001  3200( 

0013290 C 

O0133OOC 
0013310C 
00133201 
0013325. 
001 3330( 

00113*0. 

00133501 

00133601 


1 *PH  I (UCjR.XMlAN(2 )» 1 • )*PMI ( ZCnR«XMLAN( 1 )• 1 • ) 00133X0( 

RLTURN  001J3601 

3U  L B»lH2  00133*0) 

' XfTtrO*TT_TLi:T"0rTO*2 * ■ 0013A001 

IK(LHM)  .til*  N JMu  1 L0«NUMU-1  UOIJaIOi 

L 9»L  fl“ 1 0013a2O< 

L10*lB*1  O013A301 

OPF I « 0 001 3A60( 

Z P T * A " W 0 0 1 3 A 7 0 i 

DO  35  U1*L9.L1U DOI3aoO( 

gM» ( L 1 1 ” 1 * 1 (■ lA(NUMQ/2.)tlFIX( ( I SUR*XME AN( 2 > ) /GH 1UU ) ) *GR 1 UU  0013a9lm 

L)PT«H*Oh  * “ 00 1 3500( 

I[>IU»II)1UM  0013510) 


00135400 


C-31 

I F ( YVAL(IOID)  .GT.  0.0)  i'NZER  = INZER-*- 1 
♦ • 

ruNTrfnr  

CALL  be"  ST  InTERpCxVAl  * Y V A L » I L)  I D • INZER.qPF  I.TERP05) 
1F(  TLRF-U5  .LI.  0.0)  TE«^U5  = 0.0 
ML  TUWJ 

¥B*lh1  ~ " " ~ 

lF((MB-i)  , lC  . 0)  Mo  = 2 
IF  ( ( M6+ 1 ) . u I . NUMWF  Mrt=NUM*-l 

MR = M6“ 1 
M 1 0 = M « + i 

r p r l = w 

UM  = 0 


00135500 
001 J5000 

oOl 35'Oo 
00 1 3 5 0 0 0 
00135*00 

00  136000 
001 361 00 

001  36200 
00136300 

00 1 36600 
00136000 


1 

! — 
| 

4 5 

! 

50 


I 


yf>T«rt-0!i  

UU  45  MilaMy.hlO 

wHs(  Ml  1 -1-1F  1 AC  NUMW/2.  ) ♦iKIXt  ( I SUR*XM£ AN(  1 ) ) /GRID*)  ) *GRll)H 

ZPT=A-Rh 

1010=  I OIL)  »1 

X V A L ( Il)lO)  = wH 

TVALl  IDiU).=  lL.<PU5(U^T*ZRT  ) .... 

1 F ( YVAl(IoIu)  .GT.  0.0)  iNZEH*lNZEFni 
CLINT  1 NUl 

CALL  Bt6riNlLRR(XVA4.»YVAL»lOll)»lNZF-R»WpF  1 * TLRPH5 ) 

1 F ( T E R M j 5 >L|.  0 . Q ) TEKpu5«0»0 

RET URN 
OPT IsOHlj 
WHI  1 =WNL!i 
OP  f 2 = 0°  I I'MjXloO 
H P T 2 = R 1J  | 1+GRluR 
_ 0 I = ‘J 


001 36600 
0 0 1 3 6 9 0 0 
001 37000 
00137100 
001 37200 
00137300 
001 37400 
001 37500 
001 3760u 
001 37700 
0 0 1 3 7 o 0 0 
00137*00 
001 36000 
00  1 36  1 (to 
001 3tt200 
0 0 1 3 6 3 0 0 
00136400 
00136500 


CALL  UVlRF  LC  lul)) 

TLAGk1  = 1 Ui-yP  I 2)*(  4i-wP12)*TEKMl)5(B-0Pri  .A-WPT1  ) 
TLAy|<2=l  yl-uPl  2)  *(  Wi-WPfl  )*TEHPL»5(I3“0PT1  • A-RPT2) 

Tl.  A 'jI(  3 = l 0 1 *uP  1 1 )*(Wi-WPT2)*TEK^U5(M-UPT2.A-WPTl  } 
TLA0R4=iyI-yPll)*(rtl-HPIl ) *TERPU5( d*OP  T2. A*WPT2) 
0 V A i -sTLAGRI+IlAGR?-*-  1 LAGK3+TLA0R4 
IF(  oval  .Li . 0.0  .UR.  INu  »CU.  3)  go  Tu  51 
TL«P||5  = U YALZ  ( ORlDO.UKl  On) 

RETURN 

TLrhu5=TlRpu1 t w»y *n» juluT ) 

1 »PMf  ( I)LuR.XMlANC2  ) » 1 . )«PHI(  ZCOR.  XML  AN  ( 1 J • 1 * ) 

RETURN  - - - 

END  


0 0 1 3 tt  o 0 0 
00  1 )6*0u 
O013VOUO 
0 0 1 3 V 1 0 0 
00139200 
0013930O 
001 3940u 
oO 1 39500 
00 1 3y60u 
00139700 
OO  1 3 9 600 
00 1 3 v ’Uu 
oO 1 40000 
segment 


C-32 


STAKT  UF  SLUMLKi 

_JiLQCK  DMA  00H160. 

COMMON  /oH6/u«EGC(  14,  14)  001*4170; 

_ 00 1*4 1 eC< 

lHKSL  AkL  I H t WLAGHTb  F U H ThL  OErt  I ON-liNE.UL)Hr  IN  TLoHA  f lUN  f UKMUL  001/*  1 y (■ ' 

00  1 *4?U0v 

DATA  (i'*LaC  C 1 * i )/0.0/  0014210; 

DATA  ( 6*lGC  1 3 * I ) * I 3i  » 3 ) / • A 1 66667 . 1 . 1 l A6ot>6  . • A 1 66667/  00l4??O' 

DAT  A(  G»LUC(  '*  » 1)  • 1 = i »4)/  . 3/5*  1 . 125#  1 . 120* . 37b/  001  4 2 300 

data  (uHu,C(>1  ) . I =1  >5)/. 346611.  .1 JJ. III?.  2 LL\y  768  3 3 3 3 »1  .2/2222  • 0 0 1 4 ? <*  o <. 

1 .34861  1/  00 1 4 ?4  1 1 

_0>1  T A ( G M t ii C ( 6 • 1 ) ? I s 1 » 6 ) / • 3 2 9 6 6 1 1 » 1 . 302Q6 33 ..  668065b ».  868056b  . oO 142500 

1 1 . J320OJ3 •. 329861 1/  0014260;. 

DATA  (oKL.;C  ( /»i  ) » 1*1 » / J/.329Q61 1 * 1 » 3020  0 3 3 » . 74  7 9 1 6 7 * 1 >20  2 77/7  _ 0 0 1 4 2 7 0 o 

1 * . 74791c/* 1 . 3u20a33* . 32*861 1/  0014  26  0;. 

r)ATA(r.Nt.C.C(6.1  ).!=!  » a ) /.  315591 9* 1 .3921/92.  .6362440*1 .153964  6. 00  142900 

1 1 . 15  39840  * .6302  440  • 1 . 3921 792  . .3155919/  001  4 30  00 

DATA  (GKluC  (9.1  ) .1=1 .9)/.  3155919.1 .3921792.  .6239  749.1  .256  34  99.  ()0l4310u 

1.819608^.1  .2563499. . 62 39 7 4 9 . 1 . 392 1 7 92  . . J 1 559 1 9/  001 43200 

OATa  (GKi.  uC  Uo* I )• 1=1.10  1 7. 31  5591  9. 1.3  921  792  *.6239749. 1 .24  40  60/.  00l4  330iv 

1 .924 1 73J . .924i 733*1 *244o«07* .6239749.1 .3921 792* .3155919/  00143400 

...JjATA.f  6rtta,£LLl  *X>»1?J  »L1  >7*  3 15.591  9 .j.  3921  792  * • 623974  9 *1 . 244060  /•  00  14  3500 

1.9o990,ti.l.v>265384..9j9yj<*1.1.2440807..6239749.1.392l792».3l559l9/00143  60o 
DATA  (G'TLuC  ( 12  »I  ) » 1 = i » 12  >7. 31  5‘j91  9. 1 . 3921  /92»  .6239749. 1 «244u807  » 00143/uu  . 

1* 9d 9 9o 4i» j, ui4?o92»1.0142o 92* »9o 9 9y 4i»l.24408o7» *6239749. 1.3921  7 9?00141o0  0 ' 
2» .3155919  / 00141900  ‘ 

DArA(uKLbC(13»I>*lal»l3>/. 30 4 2245*1. 4 o03616». 4534640. 1.4714266.  001 44000 
1.739  193^.1  »_o 6.2 4 7 35  • .9772 65 2 *1  * 0 624 7 35.. ;»  7 39.3? 32 . 1 . 4 7_1  4286  . .4534640  »l)01  44  1 o'.  f 
21* 46 03630. .30 42245/  0 0 1 **  4 2 0 u 

UATA^ art EaL^14»l)»l*l. 14)/. 3042245*1* 4 60 3636*. 4534640* 1*4714266.  oOl 44 JOo 
j .739  393c.!  .0624735*  *9886326*  .9886326*1  • 0 624  7 35  • • 7J  9 3932  » 1 » 4 7 1 42 66  *00  1 4 4 <*o  0 - 
3.4  534640*1 .46uJ836. *304224  5/  00144  5of, 

FND  0014460 0 

SEGMENT 


i 


~S~ 

10 


subroutine  bESTiNTERPT x* y. idon. inoT2.xint.yind 

DIMENSION  XUU).YCIO).EXTCIO).WH(IO) 

YINTrO.U 


this  suhruuTIne  uEcioEs  which  type 

or  interpolation  is  host  appropriate  for  a particular  point 

SINCl  T m l jEnsITt  FUNCTION  mAy  hE  TRUNCATED 
LAgR*u1an  INTERPUL ATiON  MAY  NOT  AlwAYS  HL  IhE  bEST 


001  44700 
00  1 44600 
00144900 
00145000 
00145100 
00145200 
00  1 4^  300 

0 0 1 4 b 4 0 0 

oOl 455UU 


• LL.  0)  RlTiJRN 
. NL.  lOUN)  liO  T[j  / 

Xil).ANn»  XlNT  • L T • X(IUJN)  » AND  » Y C 1 ) »LE.  U)  RETURN 
x(.i).ANJ.xiNT.ur.x(  i dun  ) • and. y(  idun  >*le.o.o)return 

I A ( 1 ) . A‘«|J  . < IN  I .L  r . X ( I |)JN  ) ) aU  TO  1 
X C 1 ) .AND.  XInT  .GT.  XI  iron))  Gl]  TO  3 
DU  2 I R U N « 2 » I U 0 N 

I F ( ( X I N 1 ,G]  . X(  IPUN“1  ) * AND.  XI, NT  »lT.  X(lRtjN))  .UR. 

KXlNT.Ll.  XliftlJN*!)  .AND*  XlNT  .f.T.  X(lRUN)))  IN‘jEx«  lKUN-1 
Y(  IH:JN)*mLUOC  Y(  I RUN  ) ) 


IF  C I NO  I l 
I F ( 1 NO  I L 

I F ( X f N T . u T . 
IF (XINT.UT. 
IF ( X I NT  . L ( 
1 F ( X 1 N T . G 1 


0 U 1 A 5 o o u 
00145/00 
O0lMi)()Ou 
00145900 

001  AnOO'J 
OOlAftlt)!) 
001462 OU 
00l4fci0u 
001 46400 
00146500 

00  1 46600 
00146/00 


CUNT INUl 

T(ll  = Ai;OGTTU  J)  " ' " 

YlNTaSF*LlNLUI(X#Y  . 1JUN.  INDEX.  XlNT  ) 

IF ( TINT  .L I • "30.  ) RETURN 
YInI=LXP(Y]nT ) 

RETURN 

DInT  sPI)i.Y(  X »Y  »xlNT  » 1 1)  U N ) 

i ft  din i .ll.  o.o)  return 

y I NT  =1)  I i«  i 

return 

OiJ  o 1Ruh=2»Id()N 

1 F f ( X I rj  l .Gl.  X(Iru'<*1)  **00.  XI  NT  *LT«  X(lKUN)>  »UR» 

1 ( X I N I .Ll*  K l 1 K U N " 1 ) .ANJ.  XInT  .GT*  X(iHUN)))  GO  T IJ  9 
GO  TH  B 

1F(Y(]RuI"1)  . L L . 0.0  .AND*  YCIRUN)  »lE*  0.0)  RLTDRN 
1 Nl)L  < c T i<  UN 
JCT=  ) 

IF(Y(IRuN-I>  *LE.  0*0  .OR.  Y(1kUN)  »LE*  0.0)  GO  Tu  25 
GO  Til  10 

“TTJTnTKPTE 

return 


00146800 
00 1 46900 

oo 14  Togo 

00147100 
001h72UO 
00 1 4 7 J 0 0 
00147400 
0 0 1 4 750(1 
001 47600 
00147700 
0 0 1 4 7 0 0 0 
00147900 
001 4d000 
0014bl00 
O0  1 4 a200 
00146300 
O0  1 4d40Q 
00146500 
DOrABoOo 
00146700 


ON  15  JAs1»IjjN 

I F ( Y(  JK  ) .EL*  0.0  ) F*U  TO  15 

JCT  = .JCT  * 1 

HH  ( JC  T ) = X ( Jr. ) 


0 0 1 4 6 rt  0 0 
00 1 46900 
00149000 
00149100 


ryTorn  = ALrjGi  vrjK) ) 

1 f ( J .<  .EH.  iNuEX)  UX=  JN 
15  COnTINUl 

IF ( JOT  • gE • 3)  GU  TO  20 

DlNTaP()LY(WH*LXT*XInT*JLT) 

I F ( i)  I N I .LL.  -35.0)  REIURN 

I F ( JTttT  TuTTDVO  J“(»0  Tu  3 
YINT«EXP(DInT  ) 

I RETURN 

20  dINT  = SPL1NlF  1 I (WH*EXT»JlT»IUX»XIND 

IFTDINT  ,LE.  -35.)  RETURN 
1FC  OlNi  .G I * 0.0)  GU  TU  3 

i y t nT5Tx‘fit)7  i rr  i 

RETURN 

j 25  1F( Y( IRON-1)  .GT.  0*0)FAC»AbS( IF IX( Al0G10( Y( IRUN"1 ) ) ) ) 

IF(Y(IRUN)  .Gl.  0.0)  FAt«ABS(lFIX(ALOG10(Y(lKUN))>) 

00  50  jAsl.IOON 

I F ( r(JM  .Gl.  0.0)  GM  If)  30  - - - - 


00149200 
00  1 49  300 
00  1 4940U 
00149500 
00 149600 
00] 49/00 
00149600 
DO  1 4 9900 
00 1 5U0U0 
00 1 50 1 00 
00 1 50200 
UO  1 50300 
OOl 50400 
00150500 
00150600 
00150/00 
00 150800 
no i snwnn 


C-34 

IF(  JK  .WE.  INDEX  .UR.  JK  .NE.  (INUEx-1))  GU  T(J  bO 


I 

001 ‘>1000  * 


“30  JCT  = JCTHTI 

HH(  Ji;  T > = X(  J<\  ) 

EXTI)CT)=4lJG11.*C1J.**IAC)*Y(JK)) 
1F(_JK  . lJ.  1IMUEX)  1 u X = J rv 
bo  ' LON  I I N'Jl 

IF  ( JCT  .CiL.  J)  GJ  lU  6u 
UIN1=RMlT(WK.lX1 .XIl  T.jCT) 

GO  To  6 i 

to  0 L)INf  = Spi-lNLr  i I ( rt  H * r_  A f .JL  f . I 0 X • X I NF  ) 

6 1 IV  l i)  I N_T  . L r . u . J ) ML  TURN 

Y 1 N I = (Ha  P ( J i w I )-l . )/( 10.** FAC) 

RE  T UR'J 
L NO 


001 S]] 00  | 
00 131200  { 
00  l bl  Ji 

oo  r>  i m . 

0 0 1 b 1 b o i J 

0 0 1 b 1 to  0 

ooi bi  nr 

0 0 l b 1 « 0 u I 

001  bind,  ■* 
uO  1 b > ■ 1 0 ! , 
0®Ib2i0o  I 
ooi •>?;>(,'  | 
oo  i b?  io:, 

SE  GM  L N 1 I 


JUj.Nt  f I J m PuLYlX.Y.  K.l  N J #J  N.UMj 

DIMENSION  Xllu)*YC10) 

c __ 

c This  ruuune  pErnorms  interpolation  via 

C GENFrtALKtu  ONE  uIHENSIONAL  LAGRANGE 

C 

DSUM=0.0 
UD  b JKM.iNUH 
I T E.H  H =1  » 

B T E H M = 1 . 
u 0 A J K = 1 . I N U I'l 
I F ( JK  . 1 0 . IK)  GO  It)  A 
T 1 EhM= ( A IN  1 "*( JK  ) ) * I TERM 

bTfc*lMx(A(lK)-X(JK))*BTEKM 

A _ CON  1 IM'L 

USuVxL)’SbM*(  iTLRM/b~TCRM)*Y{  IK  ) 
b LONUMJt 

POL  YsL-SLM 
RETURN 
END 


OOlbtovOu  * 
00 1 b 7000  j 

00 15  7100  1 

0 0 1 5 7 2 0 J 
00137300 
00137*00  ■ 
001b7b00 
001S7to0j  I 
O01577OJ  | 
00137000 
00137*00  . 

OOlbtoOO)  J 
QOlbslOO 
001 30200 
0013830b  J 
0 0 1 3 8 A 0 0 
00  1 -5830  ) 
00138600  t 
0 0 1 b 8 7 0 0 
00138800 
SEGMENT 


FUNCTION  ECEELKC INuR.  VAL  ) 

COPMON/tKR/  1KP1.IRK2 
GU  TU  C10.2L 

c This  is  a check  on  zrange-  ellipse 

10 TFT v XI  .TTT “ TT.T) TA N 0 V“AFSXv ACT  . GT»  1 .EfcT)6)  IRP1=IRP1*1 

VAL=AHAX1C0.0»VAL ) 

RETURN.- 

c this  is  a check  on  zrange  * circl 

20  IF ( VAL  .IE.  0.0  .AND.  ABS(VAL)  .GT.  l.E-06)  IRP2*IRP2*1 
RETURN 


Siam!  of  SEumlnI 
00138*00 
0 0 1 3 * u 0 0 
) » I N U M 00 1 5* 1 Ou 

0015*201 
0015*300 
00 1 5*AU0 
001395 CO 
00 13*600 
00  1 b*  7 C G 
0013*800 


~00l  5**00 


SEOmEnT 


1 1 -I 


F DNC  T UlN  SHI.  1 nEK  i T ( a . r .H.  J.  x INT  ) 

L)  I M L N S r J "I  Xllu)#Y(]w)»l)(lU)#P(10)»tllO>»Cl<*»10) 

U (MLNoIun  A v,  1 v.  j ) . Hi  1 0)  » Z(  1 0 ) 

$.»LTn  lFI  T FERTTJWiiS  IirTLwPr:.ATIuN  liY  f ITTING 
a C'ltjjC  5Pl  IUL'  F UfIC  T i □ I J lfj  I nr.  PU  I N I 5 

H M = 1-1-1 

L>  1 1 ? K = J .MM 

0(K)  = X(t\+I)-XlK) 

P(  K ) = H(  M /6  . 

L(K):(YU+l)*l(M)/u(K) 

DO  3 Ks^.MiM 
d ( K ) = F X-l  ) 

A ( 1 . 2 ) = * 1 . -u ( 1 J/U  C 2 i 

A ( 1 » 3)=ul 1 )/lh  2) 

aT?  , l J = k C 2 ) - pTTTiTn  . 3l ' 

A(2#2)=2,*(P( 1 ) ♦ P ( 2) )-P( 1 J * A ( 1,2) 

A ( 2.  1)  = aC2.J)/A(2»2J 
B ( 2 ) = d ( 2)/Al2*2) 

IF  F n .lm.  J 1 GIF  T tJ  5 
L)U  4 K = J , M M 

A ( K . 2 >=2  . * l r U-l  } +P  t K ) J*P  (K“  1 ) * A (K*  1 • 3 ) 

H(k)  = h(nj-p(k-i  ; * h ( k - 1 1 
A(K*J>3rFK)/A(K»2) 

H(  K )=ll(  u ) /A  .K.  2) 

(J  = l)l  M“9  J /|J(  M"1  ) 

A ( M , J ) = 

A ( M . 2 ) = " j ” M F M » 1 ) * !1  ( •' " 1 ) 

/.(  M ) = n ( I-I  } / A t "I  . 2 > 

M N = M * 2 
uo  t>  i = i. mm 
K = M-I 

Z(K)  = H(i\)-AIX#3W(a  + 1 ) 

“ 7 ( n =f*  A C IT77’7T2 r*ATT  *2 7*  Z77T 

DO  7 K = 1 .MM 
U»1  . /(  6#  *D(  r\  ) ) 

C( 1 *K)=2(K)*U 
CC2»lO*2CK  + l ) * G 

C(3»«)  = Y(K)/LHK)-Z(iwl)*P(K) 

CT  zr.  K T'S  T rK TTT7 OTK7 - ZTK>  XT  * PtXl - ' “ 

TINT=(XIJ*1j-xINT)*IC(1#J)*(XCK+1)-XInT)**2.*C(J#J)) 

T In! *T Iul ♦ (XiNT-X(J))*(C(2'J)*(XlNT-x(j))**2»4-CU»j)) 

SPLlNLFl 

KETUNN 

END 


GTAK  I OF  Sf.OMl  \ ' 

0 0 1 5240  0 
D01S2SUO 

001  5?6<><; 
00152700 
00 152000 
oO 1 5?y  GO 
0 0 1 5 3 0 0 o 
001531 0A 
O0lb32Oi: 
00 15 3 30 
OOlbJuuo 
00 15  3d  0 0 
00153600 
001537 00 
00 153000 

00 1 53V00 

00 154000 
001541 00 
00154200 
00154300 
0 0 1 5 4 4 0 0 
0 0 1 5 4 5 0 0 
0015400.) 
UO 154700 
0 0 1 5 4 5 0 0 
00  1 5 4 y 0 ') 
U0155')0.> 
001551 00 
00155205 
00  1 55  !(  4 
(lO  1 554  0 0 
0015550U 
00 1 55600 
00155700 

00 155800 

00 1 55*00 
00 1 5 5 V 5 • ; 
00  1 56000 
00156  loo 
00  15620O 
"00156  30  3 

1)0  1 56  4.J!) 

0 0 1 5 6 5 0 0 
00l56o0o 
00  1 5b  700 
0015660 0 
SEGMENT 


r n o 


1 1 


I 

J 

C-  36 

SUHROUT 1 NE  RCSUML ( X 1 »X?»X J. * ) 

c I 

c_ 
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'The  numerical  approach  is  discussed,  irn  section ---(-2. 6) 

Appendix  A gives  the  power  calculation  for  a fixed  sample 
ANOVA  test;  Appendix  B shows  how  the  Wald  regions  are  found; 
Appendix  C contains  a computer  program  for  the  OC  and  ASN. 


Unclassified 


MCuftlTV  CL  AMIFICATION  OF  THI»  PAO«fmi«l  DM  KnllflJ 


